应用功能或循环功能

Question

1.CFt表示时间t的现金流量。然后，现值是 PV = ∑t（CFt /（1 + i）t）。

考虑以下现金流量：100、400、1000、3000、100、500。

假设i = 0.05并计算PV 2.实现一个函数，该函数接受现金流向量和i的参数。函数返回PV 谁能告诉我如何解决这些问题

Answer 1

该功能如下所示：

PV <- function(cf, i) sum(cf / ((1 + i)^(seq_along(cf))))

例如：

cashflows <- c(100, 400, 1000, 3000, 100, 500)
PV(cashflows, 0.05)
[1] 4241.455

将此与软件包的内容进行比较：

FinancialMath::NPV(0, cashflows, seq(1, length(cashflows)),  0.05)
[1] 4241.455

请记住，当初始现金流出为0时，PV等于NPV。