R 货币时间价值-计算数据帧中每行的周期数

我使用财务包中的tvm来计算数据帧中每行的周期数

这给了我一组输入的正确答案：

tvm(i=28.99, pv=3929.02, pmt=-167.61, n=NA)

下面的三行是我贴在底部的错误

sam问题在于：

sam$X2929.02
# NULL

列的名称为

X3929.02

sam <- data.frame(28.99, 3929.02, 167.61, NA)
tvm(i=sam$X28.99, pv=sam$X3929.02, pmt=-sam$X167.61, n=sam$NA.)
#
# Time Value of Money model
#
#     I% #N      PV FV     PMT Days #Adv P/YR C/YR
# 1 28.99 35 3929.02  0 -167.61   30    0   12   12

---

欢迎来到StackOverflow。请提供一个可复制的thx示例。工作得很好。顺便说一句，当我向下滚动阅读你的答案时，我看到了旁边的一个链接，“如何制作一个伟大的R可复制的例子？”对于像我这样的人来说，这是一个很好的阅读。

sam <- data.frame(28.99, 3929.02, 167.61, NA)
names(sam) <- c("i", "pv", "pmt", "n")
tvm(i=sam$i, pv=sam$pv, pmt=-sam$pmt, n=sam$n)
#
# Time Value of Money model
#
#     I% #N      PV FV     PMT Days #Adv P/YR C/YR
# 1 28.99 35 3929.02  0 -167.61   30    0   12   12

sam <- list(i = 28.99, pv = 3929.02, pmt = 167.61, n = NA)
tvm(i=sam$i, pv=sam$pv, pmt=-sam$pmt, n=sam$n)
#
# Time Value of Money model
#
#     I% #N      PV FV     PMT Days #Adv P/YR C/YR
# 1 28.99 35 3929.02  0 -167.61   30    0   12   12