投資の正味現在価値
シンシアのお気に入りレストランのオーナーであるジョーから相談を受けました。彼は10,000ユーロの新しいピザ窯の購入を検討しており、この投資によって追加のキャッシュフローが生まれると見込んでいますが、本当に採算が合うのか気になっています。
ジョーの投資の正味現在価値（NPV）を計算しましょう。NPVとは、投資によって生み出される将来のキャッシュフロー（青色）の現在価値の合計から、時点0における初期費用10,000（赤色）を差し引いた値です。
ジョーへのアドバイスを考えましょう。なお、金利は一定で5%とします。
この演習はコースの一部です
R による生命保険商品の評価
演習の手順
- 投資に関連するプラスのキャッシュフローを
cash_flowsとして作成します。ベクトルはゼロから始めます。 discount_factorsを、1に5%の金利を加えた値の、0から5のベクトルの負のべき乗として定義します。- 将来の利益の現在価値から初期費用10,000を差し引いて、投資の
net_present_valueを計算します。ジョーは最終的に利益を得るでしょうか、それとも損失になるでしょうか？
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# Define the cash flows
cash_flows <- c(0, ___(___, ___), ___(___, ___))
# Define the discount factors
discount_factors <- (1 + ___) ^ - (___)
# Calculate the net present value
net_present_value <- ___(___ * ___) - ___
net_present_value