0

我正在尝试利用tvmR 中的包来计算XIRR一组现金流和日期。

我有一个移动窗口，我从 i = 1 、 CF = CF[1]、d = d[1] 开始，随着我的前进，其余的现金流量都会涉及。

我知道如果XIRR现金流输入中没有符号更改，该函数会引发错误。

所以，为了处理它，我把它放在一个tryCatch.

对于我在下面提供的可重现示例，我打算何时看到 NA 直到遇到正现金流值 - 但是一旦遇到正现金流值，我希望函数像 Excel 一样返回有效值。

 # Reprex
    # Attach desired packages 
    suppressPackageStartupMessages(library(tvm))

    # Provide input data 
    CF <- c(-78662, -32491, -32492, -32492, -32493,
            -32494, 7651, 40300, 10003, 9868,
            7530, 7639, 9939, 9804, 7475)
    d <- as.Date(c("2019-06-30", "2019-09-30", "2019-12-31", "2020-03-31", "2020-06-30",
                   "2020-09-30", "2020-12-31", "2021-03-31", "2021-06-30", "2021-09-30",
                   "2021-12-31", "2022-3-31", "2022-06-30", "2022-09-30", "2022-12-31"))
    test <- xirr(cf = CF, d = d)

    print(test)

任何修复指导表示赞赏

4

0 回答 0