为 Cathleen 女士设计退休计划
在暑期实习的最后一个任务中，Cynthia 被要求为 Cathleen 女士做一些计算。Cathleen 女士是位教师，现年 40 岁，正在规划退休。她希望购买一份年金，从 65 岁开始，每年向她支付 18,000 EUR，终身领取。若在 65 岁前去世，则不予支付。下图展示了 Cathleen 女士的退休计划。
一年期生存概率 px 已预加载。
本练习是课程的一部分
用 R 评估人寿保险产品
练习说明
- 为一位 40 岁女性定义
kpx。 - 创建
discount_factors，用于以 3% 的利率，将 0 时点（40 岁）到length(kpx) - 1时点的支付进行贴现。 - 将养老金支付赋给
benefits。请确保该向量与kpx长度相同。 - 计算
single_premium，其为benefits、discount_factors和kpx的按元素乘积之和。打印结果。
交互式实操练习
通过完成这段示例代码来试试这个练习。
# Survival probabilities of (40)
kpx <- c(___, ___(px[(___):___]))
# Discount factors (to age 40)
discount_factors <- (1 + ___) ^ -(0:(___))
# Pension benefits
benefits <- c(rep(___, ___), rep(___, length(kpx) - 25))
# The single premium
single_premium <- ___
single_premium