如何计算不同利率下的净现值

Question

我有两个向量

CF <- c ( 500,500,200)
rates <- c( 0.1, 0.15 , 0.2)

矢量可以在长度和值上变化，方程为：

NVP = (CF1*(1+R1)^-1) + (CF2*(1+R2)^-1*(1+R1)^-1) + (CF3*(1+R3)^-1*(1+R2)^-1*(1+R1)^-1)

我试过这个：

for(n in 1:length(CF)) 
{
if ( length(R)==1)
{
van <- van + CFFC[n] * ((1 + R) ^ -n)
}
else
{
aux [n] <- CF[n]* ((1+ R[c(1:n)])^ -1) 
}  
}

请帮忙，这是我第一次编程

Answer 1

NPV可以看作两个向量CF和cumprod( (1+rates)^(-1) )的点积，其中cumprod( (1+rates)^(-1) )是(1+rates)^(-1)的累积积，即。，( (1 + R1)^(-1), (1 + R2)^(-1) * (1 + R1)^(-1), (1 + R3)^(-1) * (1 + R2)^(-1) * (1 + R1)^(-1) )。

CF * cumprod( (1+rates)^(-1) )
# 454.5455 395.2569 131.7523