r - 在 R 中计算 IRR 时如何合并 if 语句？

Question

这是我用来计算 IRR 的一个简单函数。然而，当所有现金流量均为负数并返回“uniroot(npv, c(0, 1), cf = cf) 中的错误:端点处的 f() 值不是相反符号时，会发生这种情况。”有什么方法可以放置 if 语句，以便在无法计算 IRR 时，R 仅返回 0？

npv<-function(i,cf,t=seq(along=cf)) sum (cf/(1+i)^t)
irr <- function(cf) {uniroot(npv, c(0,1), cf=cf)$root }
irr(cf)

Answer 1

您可以使用all 函数:

irr <- function(cf) {
              if(all(cf < 0)) return(0)
              uniroot(npv, c(0,1), cf=cf)$root
       }

• 如果all函数返回TRUE，return函数将返回0，然后退出函数。
• 如果 all 函数返回 FALSE，则 uniroot 函数将像以前一样运行。