投资的净现值
Cynthia 最喜欢的餐厅老板 Joe 正在寻求建议。他想购买一台价值 10,000 欧元的新披萨烤炉。他预计这项投资会带来额外的现金流，但也在考虑新烤炉是否真的划算。
请计算 Joe 这项投资的净现值（NPV）。NPV 等于该投资在未来产生的现金流（蓝色）的现值之和，减去在时点 0 的初始成本 10,000（红色）。
您会给 Joe 什么建议？假设利率恒定为 5%。
本练习是课程的一部分
用 R 评估人寿保险产品
练习说明
- 创建包含与该投资相关的正向现金流的
cash_flows。该向量以 0 开头。 - 将
discount_factors定义为 1 加上 5% 的利率，再取负的 0 到 5 的向量的幂。 - 计算该投资的
net_present_value：等于未来收益的现值减去 10,000 的初始成本。Joe 最终会实现整体盈利还是亏损？
交互式实操练习
通过完成这段示例代码来试试这个练习。
# 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