종신 선지급 연금의 가격을 구하는 함수

Cynthia의 인턴십 지도교수는 R 사용 경험이 많지 않아요. 그는 주어진 일정 이자율 $i\(와 생명표를 사용해 \)(x)$에 대한 (전 생애) 선지급 연금의 EPV를 계산하는 R 함수를 작성해 달라고 요청했습니다.

급여가 1 EUR로 일정하므로, 계산에서 이를 별도로 반영할 필요는 없습니다.

입력 인수 age, 이자율 i, life_table을 받아 전 생애 선지급 연금의 EPV를 계산하는 함수 life_annuity_due()를 작성하세요.
미리 로드된 1999년 벨기에 여성 기간 생명표 life_table을 사용해, (20)에 대한 선지급 연금의 EPV를 이자율 2%에서 life_annuity_due()로 계산하세요.
이자율을 5%로 올리면 EPV가 어떻게 달라지나요? (나이는 20으로 유지) 나이를 65로 바꾸면 어떻게 되나요? (이자율은 2%로 유지)