划算嗎？活得比你的期望壽命更久
先前替 Cathleen 小姐退休年金所做的保費計算，係以 1999 年比利時女性期間生命表為基礎。也就是說，保費已考量一位 40 歲女性平均還能活多久。回想一下，截尾期望壽命（40）是將 \(_kp_{40}\) 對於 \(k = 1, 2, 3, \ldots\) 進行求和而得。
什麼情況下這項商品會變成划算的選擇？如果她在 75 歲身故，Cathleen 小姐一共會領到多少？若活到 95 歲又會如何？
先前定義的變數 kpx、discount_factors、benefits 與 single_premium 已預先載入。先從主控台再次查看 single_premium 的數值開始。
本練習屬於課程
以 R 估值人壽保險商品
練習說明
- 計算 Cathleen 小姐的截尾期望壽命：對
kpx（去掉第一個元素）求和。 - 若她活到 75 歲，計算其年金給付的現值。先將
subset1定義為1:36，此對應 40 到 75 歲。接著將經subset1擷取後的benefits與discount_factors相乘並加總，以求得此情境下的現值。 - 若她活到 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 <- ___
___(___ * ___)