短期と長期
10,000ユーロの確定支払いと生存給付金の現在価値が、時間軸を5年・10年・30年と変えたときにどう変化するかを見ていきましょう。利率は引き続き \(2\%\) で一定とし、生存確率 px はあらかじめ読み込まれています。
この演習はコースの一部です
R による生命保険商品の評価
演習の手順
- 今から5年、10年、30年後に支払われる10,000ユーロの確定支払いの現在価値（PV）を
PVに代入してください。ベクトル化を活用しましょう。 pxの20 + 1からlength(px)までの部分集合にcumprod()を適用して、(20)歳の生存確率kpxを計算してください。c(5, 10, 30)の時点におけるkpxを使って、確定支払いのPVを対応する生存給付金のEPV（期待現在価値）に変換してください。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# 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(___)]