一時払いから年払いへ
キャスリーンさんは、40歳から始まる据置生存年金を、25年間にわたる年払い保険料で積み立てる予定です。ただし、55歳から授業時間を半分に減らす計画があるため、15年後以降は保険料を半額にしたいと考えています（下のグラフを参照）。キャスリーンさんが最初に支払う保険料はいくらになるでしょうか？
前の演習で計算した変数 kpx、discount_factors、single_premium は事前に読み込まれています。
この演習はコースの一部です
R による生命保険商品の評価
演習の手順
- 保険料のパターンを
rhoとして定義してください。このベクトルの長さはkpxと同じにする必要があります。 rho、discount_factors、kpxの要素ごとの積の合計でsingle_premiumを割ることでinitial_premiumを計算し、出力してください。initial_premiumとrhoの積を出力して、年払い保険料の内容を確認しましょう。- 貨幣の時間価値と死亡率を考慮せずに、キャスリーンさんが生存年金を積み立てるために支払う合計金額を計算してください。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# Premium pattern rho
rho <- c(rep(1, ___), rep(0.5, ___), rep(0, ___))
# The initial premium
initial_premium <- ___ / ___(___ * ___ * ___)
initial_premium
# The annual premiums
___ * ___
# Sum of the annual premiums (no actuarial discounting)
___(___ * ___)