即付型与现付型
作为后续任务，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 欧元。
交互式实操练习
通过完成这段示例代码来试试这个练习。
# 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(___, ___, ___)