应用 function 或循环 function

Question

1. 让 CFt 表示时间 t 的现金流量。 那么，现值为 PV=∑t(CFt/(1+i)t)。

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

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

Answer 1

function 将如下所示：

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

将此与 package 的功能进行比较：

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

回想一下，当初始现金流出为 0 时， PV等于NPV 。