將死亡率納入的退休金計算
如果把死亡率考量進去，現值會如何改變？此時退休金給付不再保證支付，而是取決於受領人是否存活。單一年存活機率 px 已經預先載入，此外還有上一題建立的變數 benefits、discount_factors、PV_65 與 PV_20。
本練習屬於課程
以 R 估值人壽保險商品
練習說明
- 將 65 歲個體到 100 歲之間的存活機率序列儲存到變數
kpx。請確保kpx以 1 開頭。 - 在考量死亡率的情況下，計算 65 歲時的退休金預期現值（EPV）。把結果指定給
EPV_65，並與未考量死亡率的PV_65比較。 - 進一步將 65 歲的 EPV 折現至 20 歲的 EPV，同時考量 3% 的利率與年齡 20 的個體存活至 65 歲的機率。再將
EPV_20與PV_20比較。
動手互動練習
試著完成這個範例程式碼，體驗一下這個練習。
# Survival probabilities of (65) up to age 100
kpx <- c(1, ___(px[(___):(___)]))
# EPV of pension at age 65
EPV_65 <- ___(___ * ___ * ___)
cbind(PV_65, EPV_65)
# EPV of pension at age 20
EPV_20 <- EPV_65 * (1.03 ^ - 45 * ___(px[(___):(___)]))
cbind(PV_20, EPV_20)