考虑死亡率的养老金计算
如果将死亡率考虑在内，现值会如何变化？此时养老金支付不再是保证给付，而是取决于受领人的存活。已预加载一年期存活概率 px，以及上一练习中创建的变量 benefits、discount_factors、PV_65 和 PV_20。
本练习是课程的一部分
用 R 评估人寿保险产品
练习说明
- 将 65 岁人群从 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)