いつでも、どこでも？
自分の支出パターンを振り返ったシンシアは、ダウンロードやコンサートチケットにお金を使う代わりに銀行口座に預けていたら、いくら貯まっていたのかと考え始めました。ここでは、適切な割引関数を使って、将来の時点におけるキャッシュフローの価値を計算しましょう。
シンシアの支出パターンは上の図のとおりです。最初の演習で定義した cash_flows ベクトルは、すでにワークスペースに読み込まれています。利率は引き続き2%です。
この演習はコースの一部です
R による生命保険商品の評価
演習の手順
- 時点 \(t\) に支払われる1ユーロの、時点 \(s\) における価値を計算する関数
discount()を定義してください。 discount()を使って、時点0から5におけるcash_flowsの現在価値を計算してください。結果は先ほどと同じ 444.93 ユーロになるはずです。- シンシアが18歳になる6年後の時点におけるキャッシュフローベクトルの価値を出力してください。
- 別の方法で、時点6におけるキャッシュフローベクトルの累積価値を計算してください。今度は、時点0の
present_valueを時点6の価値に変換する方法を使います。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# Define the discount function v
discount <- function(s, t, i = 0.02) {
(1 + ___) ^ - (___ - ___)
}
# Calculate the present value
present_value <- sum(cash_flows * discount(___, ___))
present_value
# Calculate the value at time 6
sum(cash_flows * discount(___, ___))
# Calculate the value at time 6, starting from present_value
present_value * discount(___, ___)