将来キャッシュフローの現在価値（2）

素晴らしいです！この章もほぼ完了し、データフレームとファイナンスの達人に近づいています。先に進む前に、もう少しだけ確認しておきましょう。

今はpresent_valueという列がありますが、その合計額を取締役会に報告したいとします。ここは簡単です。先ほど学んだsum()関数を使って、cash$present_valueの要素を合計しましょう。

さらに、総現在価値に対して、企業Aと企業Bがそれぞれどれだけ貢献しているかも知りたいですね。データフレームの行を分けて、企業AまたはBだけを含める方法を覚えていますか？

cash_A <- subset(cash, company == "A")

sum(cash_A$present_value)

[1] 4860.218

sum()関数を使って、cashのpresent_value合計を計算し、total_pvに代入します。
企業Bに関する行だけを含むようにcashを抽出して、cash_Bを作成します。
sum()とcash_Bを使って、企業Bのpresent_value合計を計算し、total_pv_Bに代入します。