캐슬린 씨를 위한 생명보험 설계
Cynthia는 생명보험사에서 인턴으로 일할 때 캐슬린 씨를 도왔습니다. 이제 48세인 캐슬린 씨는 은퇴 무렵에 사망하는 경우에 대비해 재정적 보호를 원합니다. 성장기 자녀들을 보호하기 위해, 아래와 같이 55세부터 75세 사이에 사망하면 40,000 EUR의 급부를 지급하는 보험에 가입하고자 합니다.
이 정기 생명보험의 가치를 평가하기 위해, 다시 한 번 1999년 벨기에 여성 생명표를 사용합니다. 1년 생존확률 px와 사망률 qx는 미리 로드되어 있으며, 가정한 이자율 5%는 i로 제공됩니다.
이 연습은 강의의 일부입니다
R로 배우는 생명보험 상품 평가
연습 안내
- 48세인의 75세까지 유예 사망확률 $q_{48}, \: _{1|}q_{48}, \: \ldots, \: _{26|}q_{48}$을 다년 생존확률과 사망률의 곱으로 계산하세요.
- 이자율
i에 따른 적절한 할인계수를 정의하세요. - 이 정기 생명보험의 사망급부로
benefits벡터를 지정하세요. - 이 설계의 기대현가를 계산하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Deferred mortality probabilites of (48)
kqx <- c(___, ___(px[(___):(___)])) * qx[(___):(___)]
# Discount factors
discount_factors <- (___) ^ - (1:length(kqx))
# Death benefits
benefits <- c(rep(___, ___), rep(___, length(kqx) - 7))
# EPV of the death benefits
EPV_death_benefits <- ___
EPV_death_benefits