划算吗？活得比平均预期寿命更久
此前对 Cathleen 女士退休计划的保费计算基于 1999 年比利时女性分年期生命表。这意味着，保费考虑了 40 岁女性平均还能生存的年数。回忆一下，截尾期望寿命 e(40) 计算为对 \(k = 1, 2, 3, \ldots\) 的 \(_kp_{40}\) 之和。
这个产品在何种情况下会变成一笔划算的交易？如果 Cathleen 女士在 75 岁去世，她总共会领取多少钱？如果在 95 岁去世呢？
之前定义的变量 kpx、discount_factors、benefits 和 single_premium 已预加载。请从在控制台再次查看 single_premium 的取值开始。
本练习是课程的一部分
用 R 评估人寿保险产品
练习说明
- 计算 Cathleen 女士的截尾期望寿命，方法是对去掉第 1 个元素后的
kpx求和。 - 计算如果她活到 75 岁时其年金给付的现值。先将
subset1定义为1:36，对应 40 至 75 岁。在该情景下，通过对经subset1索引后的benefits与discount_factors相乘并求和来计算现值（PV）。 - 如果她活到 95 岁，结果会是多少？
交互式实操练习
通过完成这段示例代码来试试这个练习。
# Curtate life expectancy of (40)
___(___)
# Present value of annuity benefits when (40) lives until age 75
subset1 <- ___
___(___ * ___)
# Present value of annuity benefits when (40) lives until age 95
subset2 <- ___
___(___ * ___)