사망률을 반영한 연금 계산
사망률을 고려하면 현재가치는 어떻게 달라질까요? 이 경우 연금 지급은 더 이상 보장되지 않고, 수급자의 생존 여부에 따라 달라집니다. 1년 생존확률 px와 이전 연습 문제에서 만든 benefits, discount_factors, PV_65, PV_20 변수가 미리 로드되어 있습니다.
이 연습은 강의의 일부입니다
R로 배우는 생명보험 상품 평가
연습 안내
- 65세가 100세까지 생존할 확률을 변수
kpx에 저장하세요.kpx는 반드시 1로 시작해야 합니다. - 사망률을 반영해 65세 시점의 연금 EPV를 계산하세요. 결과를
EPV_65에 할당하고, 사망률을 고려하지 않은 값인PV_65와 비교해 보세요. - 65세 시점의 EPV를 20세 시점의 EPV로 할인하되, 이자율 3%와 (20)이 65세까지 생존할 확률을 모두 반영하세요. 마찬가지로
EPV_20을PV_20과 비교해 보세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Survival probabilities of (65) up to age 100
kpx <- c(1, ___(px[(___):(___)]))
# EPV of pension at age 65
EPV_65 <- ___(___ * ___ * ___)
cbind(PV_65, EPV_65)
# EPV of pension at age 20
EPV_20 <- EPV_65 * (1.03 ^ - 45 * ___(px[(___):(___)]))
cbind(PV_20, EPV_20)