일시형 vs 종신형
마지막으로, 일정 기간으로 지급이 제한된 일시형 선지급 종신연금에 대한 함수를 작성하도록 Cynthia를 도와주시겠어요? 첫 번째 지급은 시점 $0$에서, 마지막 지급은 시점 $n-1$에서 이루어집니다.
life_table과 R 함수 life_annuity_due는 워크스페이스에 그대로 제공됩니다.
이 연습은 강의의 일부입니다
R로 배우는 생명보험 상품 평가
연습 안내
life_annuity_due()코드를 바탕으로, 일시형 선지급 종신연금의 EPV를 계산하도록 함수temporary_life_annuity_due()를 정의하세요. 이 함수에는 지급 횟수를 나타내는 추가 인수n이 있습니다. 따라서kpx와discount_factors의 전체 길이는 모두n이어야 합니다.temporary_life_annuity_due()를 사용해, 여성 1999 기간 생명표를 이용하여 (20)에 대해 이자율 2%로 10년짜리 선지급 종신연금의 EPV를 계산하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# EPV of a whole life annuity due for (20) at interest rate 2% using life_table
life_annuity_due(20, 0.02, life_table)
# Function to compute the EPV of a temporary life annuity due for a given age, period of n years, interest rate i and life table
temporary_life_annuity_due <- function(age, n, i, life_table) {
px <- 1 - life_table$qx
kpx <- c(1, cumprod(px[(___):(___)]))
discount_factors <- (1 + i) ^ - (0:(___))
___
}
# EPV of a temporary life annuity due for (20) over 10 years at interest rate 2% using life_table
temporary_life_annuity_due(___, ___, ___, ___)