预测现金流的现值（1）

开始做一些分析吧！之前，Lore 介绍了「现值」这一概念。接下来的两个练习会用到它，所以这里再举一个例子。

如果您预计在 1 年后收到 $100，按 5% 的利率计算，这笔现金流的现值是多少？要计算它，需要将现金流「折现」，以今天的价值来表示。通用公式为：

present_value <- cash_flow * (1 + interest / 100) ^ -year

95.238 = 100 * (1.05) ^ -1

还有一种思路是把问题反过来想。如果您今天有 $95.238，并在下一年获得 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