截尾期望寿命 vs 完整期望寿命
继续使用比利时 1999 年女性生命表，Cynthia 想用 1999 年的数据分别求新生儿和 18 岁女性的期望寿命。此外，她还想检验在她的人身保险数学课上讨论过的：完整期望寿命与截尾期望寿命之间是否存在 0.5 的经验性差异。
回顾视频内容，截尾期望寿命可计算为：
$$ E[K_x] = \sum_{k=1}^{\infty} {}_kp_x. $$
一年期生存概率 px 和完整期望寿命 ex 已预加载。
本练习是课程的一部分
用 R 评估人寿保险产品
练习说明
- 计算 (0) 的截尾期望寿命，即新生女性。首先，将生存概率
kp0定义为px的累积乘积。然后，输出kp0的和。 - 对 (18) 的 18 岁女性重复上述步骤。这一次，在计算累积乘积前，请先将
px从 18 岁起进行子集化。 - 与完整期望寿命进行比较。使用长度为 2 的向量作为方括号内的索引，在一行中打印
ex中对应 0 岁和 18 岁的子集。
交互式实操练习
通过完成这段示例代码来试试这个练习。
# Survival probabilities and curtate expected future lifetime of (0)
kp0 <- ___
___
# Survival probabilities and curtate expected future lifetime of (18)
kp18 <- ___(px[(___):___])
___
# Complete expected future lifetime of (0) and (18)
___[c(___, ___)]