거치형 생명보험
이제 Cynthia는 Ethan에게 고정 이자율 $i\(가 주어졌을 때, \)(x)$에 대한 거치형 생명보험의 EPV를 직접 계산하도록 코드를 수정해 보라고 합니다. 아래 그림은 거치 기간이 $u$년인 경우의 타임라인을 보여 줍니다.
처음 $u$년 동안 피보험자가 사망하면 사망급부는 지급되지 않습니다. 시간 $u$부터는 피보험자가 사망한 해의 말에 1 EUR의 사망급부가 지급됩니다.
시작점으로, 함수 whole_life_insurance()와 1999년 여성 life_table을 사용하여 20세에 대해 이자율 $i = 2\%$일 때 종신보험의 EPV가 제공됩니다.
이 연습은 강의의 일부입니다
R로 배우는 생명보험 상품 평가
연습 안내
deferred_life_insurance()함수를 정의해 주세요. 이 함수는 주어진age, 거치 기간u, 이자율i,life table에 대해 거치형 생명보험의 EPV를 계산해야 합니다.deferred_life_insurance()함수를 적용해 거치 기간이 45년인 생명보험의 EPV를 계산해 보세요. 나이는 20세, 이자율은 2%, 미리 불러온 1999년 여성life_table을 사용하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# EPV of a whole life insurance for (20) at interest rate 2% using life_table
whole_life_insurance(20, 0.02, life_table)
# Function to compute the EPV of a deferred whole life insurance
deferred_life_insurance <- function(age, u, i, life_table) {
qx <- life_table$qx; px <- 1 - qx
kpx <- c(1, cumprod(px[(age + 1):(length(px) - 1)]))
kqx <- kpx * qx[(age + 1):length(qx)]
discount_factors <- (1 + i) ^ - (1:length(kqx))
benefits <- c(rep(___, ___), rep(___, length(kpx) - u))
sum(___ * discount_factors * kqx)
}
# EPV of a deferred life insurance for (20) deferred over 45 years at interest rate 2% using life_table
deferred_life_insurance(___, ___, ___, ___)