即付年金 vs 先付年金
作為後續任務，Cynthia 的主管要她調整程式，用於「即付終身年金」，也就是在第 1 年後才開始給付。
比利時 1999 年女性生命表已預先載入為 life_table，並提供上一題的解答程式碼作為起點。若想回顧函式定義，請在主控台輸入 life_annuity_due。
本練習屬於課程
以 R 估值人壽保險商品
練習說明
- 以
life_annuity_due()為基礎，撰寫新的函式life_immediate_annuity()，用來計算「終身即付年金」的 EPV。由於即付年金在時間 0 不會給付，因此kpx與discount_factors都應從時間 1 開始定義。 - 使用
life_table，在固定利率 2% 下，計算（20）之終身即付年金的 EPV。請驗證結果比先付年金低 1 EUR。
動手互動練習
試著完成這個範例程式碼，體驗一下這個練習。
# EPV of a whole life annuity due for (20) at interest rate 2% using life_table
life_annuity_due(20, 0.02, life_table)
# Function to compute the EPV of a whole life immediate annuity for a given age, interest rate i and life table
life_immediate_annuity <- function(age, i, life_table) {
px <- ___
kpx <- ___(px[(age + 1):length(px)])
discount_factors <- (___) ^ - (___)
sum(___)
}
# EPV of a whole life immediate annuity for (20) at interest rate 2% using life_table
life_immediate_annuity(___, ___, ___)