同世代存活機率
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。 - 計算 5 年期的同世代存活機率（18）。
- 你能用一行指令，將此計算套用到早一個世紀的 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)]))