将来キャッシュフローの現在価値(1)
分析の時間です! 先ほど、Lore が現在価値という考え方を紹介しました。次の2つの演習でもこの考え方を使いますので、もう一つ例を見ておきましょう。
いまから1年後に $100 のキャッシュフローを受け取るとします。金利が 5% のとき、その現在価値はいくらでしょうか? これを計算するには、キャッシュフローを「割引」して、今日の価値に直します。一般式は次のとおりです。
present_value <- cash_flow * (1 + interest / 100) ^ -year
95.238 = 100 * (1.05) ^ -1
別の見方として、問題を逆に考えることもできます。今日 $95.238 を持っていて、今後1年間で 5% の利子がつくと、年末にはいくらになっていますか? このタイプの計算は第1章で学びましたね。5% に対応する倍率を求めて、$95.238 に掛けます。
100 = 95.238 * (1.05)
なるほど! お金を割引くときは、第1章の株式リターンで行ったことの逆をすればよいのです。
この演習はコースの一部です
金融のためのR入門
演習の手順
- 3年後に $4000 を受け取る見込みで、金利が 5% の場合、その現在価値はいくらですか? 上の一般式に従い、結果を
present_value_4kに代入してください。 - ベクトルを使えば、
cash_flowの列全体の現在価値を一度に計算できます!cash$cash_flow、cash$yearと一般式を使って、金利 5% におけるすべてのキャッシュフローの現在価値を計算し、列present_valueとしてcashに追加してください。 - 新しい列を確認するために、
cashを出力してください。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# Present value of $4000, in 3 years, at 5%
present_value_4k <-
# Present value of all cash flows
cash$present_value <-
# Print out cash