定价终身预付年金的函数

Cynthia 的实习导师对 R 的经验不多。他请她编写一个 R 函数，在给定恒定利率 \(i\) 和生命表的条件下，计算 \((x)\) 的（整付）终身预付年金的 EPV。

由于给付恒为 1 欧元，因此在计算中无需显式地将其代入。

本练习是课程的一部分

用 R 评估人寿保险产品

查看课程

练习说明

编写函数 life_annuity_due()，根据输入参数 age、利率 i 和 life_table 计算整付终身预付年金的 EPV。
使用预先加载为 life_table 的 1999 年比利时女性期间生命表，调用 life_annuity_due() 计算 (20) 在利率 2% 下的终身预付年金 EPV。
探索当利率提高到 5%（年龄仍为 20）时 EPV 的变化。如果年龄改为 65（利率仍为 2%），结果又如何？

交互式实操练习

通过完成这段示例代码来试试这个练习。

# Function to compute the EPV of a whole life annuity due for a given age, interest rate i and life table
life_annuity_due <- function(age, i, life_table) {
  px <- ___
  kpx <- c(___, ___(px[(___):length(px)]))
  discount_factors <- (___) ^ - (0:(___))
  sum(discount_factors * kpx)
}

# EPV of a whole life annuity due for (20) at interest rate 2% using life_table
life_annuity_due(___, ___, ___)

# EPV of a whole life annuity due for (20) at interest rate 5% and for (65) at interest rate 2% using life_table
life_annuity_due(___, ___, ___)
life_annuity_due(___, ___, ___)

编辑并运行代码