随时随地？

回顾自己的消费习惯，Cynthia 想知道，如果不把钱花在下载和演唱会门票上，而是存入银行账户，她最终能积累多少。为此，您将使用合适的贴现函数，在未来某一时点计算这组现金流的价值。

上图展示了 Cynthia 的支出模式。您在第一个练习中定义的 cash_flows 向量已预加载到您的工作区。利率仍为 2%。

本练习是课程的一部分

用 R 评估人寿保险产品

查看课程

练习说明

定义函数 discount()，用于计算在时点 \(s\) 收到于时点 \(t\) 的 1 EUR 的价值。
使用 discount() 计算在时点 0 到 5 的 cash_flows 的现值。结果应与您之前的一致，即 444.93 EUR。
当 Cynthia 在 6 年后年满 18 岁时，打印该现金流向量在该时点的价值。
用另一种方式计算时点 6 的累计价值。这次将时点 0 的 present_value 转换为时点 6 的价值。

交互式实操练习

通过完成这段示例代码来试试这个练习。

# Define the discount function v
discount <- function(s, t, i = 0.02) {
  (1 + ___) ^ - (___ - ___)
}

# Calculate the present value
present_value <- sum(cash_flows * discount(___, ___))
present_value

# Calculate the value at time 6
sum(cash_flows * discount(___, ___))

# Calculate the value at time 6, starting from present_value
present_value * discount(___, ___)

编辑并运行代码