R tvm财务包

Question

我正在尝试使用财务包中的fvm来估计支付流的现值。

y <- tvm(pv=NA,i=2.5,n=1:10,pmt=-c(5,5,5,5,5,8,8,8,8,8))

我得到的结果是：

y

Time Value of Money model

    I% #N    PV FV PMT Days #Adv P/YR C/YR
1  2.5  1  4.99  0  -5   30    0   12   12
2  2.5  2  9.97  0  -5   30    0   12   12
3  2.5  3 14.94  0  -5   30    0   12   12
4  2.5  4 19.90  0  -5   30    0   12   12
5  2.5  5 24.84  0  -5   30    0   12   12
6  2.5  6 47.65  0  -8   30    0   12   12
7  2.5  7 55.54  0  -8   30    0   12   12
8  2.5  8 63.40  0  -8   30    0   12   12
9  2.5  9 71.26  0  -8   30    0   12   12
10 2.5 10 79.09  0  -8   30    0   12   12

PV从5跳到6(当价格更改为8时)似乎是不正确的。这会影响到y10,3中的结果，这是我感兴趣的结果。

当付款在整个流程中都相同时，Excel中的NPV公式会产生类似的结果，但是，当付款的向量是可变的时，tvm公式和NPV的结果就会不同。我需要获得与Excel中的NPV公式相同的结果。

我应该怎么做才能让它工作呢？

Answer 1

cf公式有帮助，但它并不总是与Excel一致。

我使用以下函数解决了我的问题：

npv<-function(a,b,c) sum(a/(1+b)^c)