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时）看似不正确。这会影响y [10,3]中的结果，这是我有兴趣获得的结果。

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

我该怎么做才能使这项工作成功？

Answer 1

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

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

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

R tvm金融套餐

1 个答案: