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

光电池从5跳到6(当价格变化到8时)似乎不正确。这影响到y[10,3]的结果,这就是我有兴趣获得的结果。

Excel 中的 NPV 公式产生类似的结果,因为整个流程的支付情况相同,但是,当报酬的矢量是变量时,tvm 公式和 NPV 的流体是不同的。我需要获得与NPV 公式以Excel 提供的相同的结果。

我该怎么做才能成功?

Answer 1

参考公式有帮助,但并不总是与Excel一致。

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

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

友情链接