队列生存概率
Cynthia 之前计算的"1999 年时 18 岁、活到 23 岁"的概率，其实是期间生存概率。您能帮她调整计算方法，把随时间变化的生存概率考虑进去吗？用于乘法法则的一年期生存概率应当以对角线方式从寿命表中提取：
$$ _5p_{18, 1999} = p_{18, 1999} \cdot p_{19,2000} \cdot p_{20,2001} \cdot p_{21,2002} \cdot p_{22,2003} $$
上一练习中的 life_table 对象仍已加载。
本练习是课程的一部分
用 R 评估人寿保险产品
练习说明
- 使用
subset()为出生于 \(1999 - 18 = 1981\) 的女性创建并打印队列寿命表。 - 从
life_table_1981的qx列定义队列一年期生存概率px。 - 计算（18）的 5 年队列生存概率。
- 您能将出生年为 1881（早一个世纪）的计算用一行命令完成吗？您需要同时使用
with()和subset()。
交互式实操练习
通过完成这段示例代码来试试这个练习。
# Construct and print the cohort life table for birth year 1981
life_table_1981 <- ___(___, ___)
life_table_1981
# 1981 cohort one-year survival probabilities
px <- ___
# 1981 cohort survival probability that (18) survives 5 more years
___(px[(___):(___)])
# 1881 cohort survival probability that (18) survives 5 more years
___(___(life_table, year - age == ___), prod(1 - qx[(18 + 1):(22 + 1)]))