R-tvm财务方案

我试图使用财务包中的fvm来估计一系列付款的现值

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

PV从5跳到6（当价格变为8时），这似乎是不正确的。这会影响y[10,3]中的结果，这是我感兴趣的结果

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

---

我该怎么做才能让它工作

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

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

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

---

npvit自从我使用
tvm（）
已经有一段时间了，但我认为您已经模拟了10种不同的场景，从1年到10年不等，没有一种场景超过10年有不同的支付方式。我认为您需要使用
cf（）
，而不是
tvm（）
。cf公式有帮助，但不会给我与Excel相同的结果。我使用以下功能解决了我的问题：npvI建议您将其作为您自己问题的答案发布。
npv<-function(a,b,c) sum(a/(1+b)^c)