1. 学ぶ
    2. /
  2. コース
    3. /
  3. 金融のためのR入門
Connected

演習

将来キャッシュフローの現在価値（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章の株式リターンで行ったことの逆をすればよいのです。

指示

100 XP
  • 3年後に $4000 を受け取る見込みで、金利が 5% の場合、その現在価値はいくらですか？ 上の一般式に従い、結果を present_value_4k に代入してください。
  • ベクトルを使えば、cash_flow の列全体の現在価値を一度に計算できます！ cash$cash_flow、cash$year と一般式を使って、金利 5% におけるすべてのキャッシュフローの現在価値を計算し、列 present_value として cash に追加してください。
  • 新しい列を確認するために、cash を出力してください。