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

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