종신보험
계리사 시험을 준비 중인 친구 Ethan을 도우려고, Cynthia는 주어진 상수 이자율 $i\(에서 \)(x)$에 대한 (종신) 생명보험의 EPV를 계산하는 R 코드를 만들고자 합니다. 사망보험금이 1 EUR로 일정하므로, 계산에서 이를 별도로 고려할 필요는 없습니다.
1999년 벨기에 여성 생명표가 life_table로 미리 로드되어 있습니다. EPV가 보험계약자 나이 $x$와 이자율에 따라 어떻게 변하는지 보여 주기 위해 plot_by_age()와 plot_by_interest_rate() 함수가 미리 정의되어 있습니다. 이 함수들은 R 콘솔에 함수 이름을 입력해 살펴볼 수 있습니다.
이 연습은 강의의 일부입니다
R로 배우는 생명보험 상품 평가
연습 안내
whole_life_insurance()함수를 완성해 주세요. 이 함수는 주어진age, 이자율i, 그리고life_table에 대해 종신보험의 EPV를 계산해야 합니다.- 미리 작성된 코드를 실행해, 여러 연령대(이자율 3%)와 여러 이자율(20세 기준)에 대한 종신보험 EPV 그래프를 그려 보세요. 결과 그래프를 해석해 보세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Function to compute the EPV of a whole life insurance
whole_life_insurance <- function(age, i, life_table) {
qx <- life_table$qx
px <- ___
kpx <- c(1, cumprod(px[(___):(length(px) - 1)]))
kqx <- kpx * qx[(___):length(qx)]
discount_factors <- (___) ^ - (1:length(kqx))
sum(discount_factors * kqx)
}
# Plot the EPV of a whole life insurance for a range of ages at interest rate 3% using life_table
plot_by_age()
# Plot the EPV of a whole life insurance for (20) for a range of interest rates using life_table
plot_by_interest_rate()