Short- and long-term

Let's discover what happens to the present value of the guaranteed payment and the pure endowment of 10,000 EUR when you change the time horizon from 5 to 10 or 30 years. The interest rate is still constant at \(2\%\) and the survival probabilities px have been preloaded.

本练习是课程的一部分

Life Insurance Products Valuation in R

查看课程

练习说明

Assign the PVs of guaranteed payments of 10,000 EUR in 5, 10 and 30 years from now to PV. Use vectorization.
Calculate the survival probabilities kpx of (20) using cumprod() on the subset of px starting from 20 + 1 until length(px).
Use kpx at times c(5, 10, 30) to transform the PV of the guaranteed payments to the EPV of the corresponding pure endowments.

交互式实操练习

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

# PV of guaranteed payments of 10,000 in 5, 10 and 30 years
PV <- ___ * (___) ^ - c(___)
PV

# Survival probabilities of (20)
kpx <- ___(px[(___):___])

# EPV of pure endowments of 10,000 in 5, 10 and 30 years for (20)
___ * ___[c(___)]

编辑并运行代码