r - R 和 MS Excel 之间 IRR 计算的不同结果

Question

内部 yield (IRR) 或经济 yield (ERR) 是资本预算中用于衡量和比较投资盈利能力的 yield 。

我写了一些 R 代码来计算内部 yield (IRR)，如下所示:

cal_irr <- function(amount,fee,duration) {
    cash<-c(amount,rep(-1*(amount*fee+amount/duration),duration))
    NPV<-function(r){sum(cash /((1 + r) ^ (seq(along.with = cash)-1)))}
    return(uniroot(NPV, c(0, 1))$root)
}

cal_irr可以计算分期付款，但烦人的是我的结果和财务函数不一样 IRR在 MS Excel 中。

比如你从银行借3600，管理费是 0.006*3600 , 24 个月等额本金分期付款，所以每个月您都必须支付 3600*0.006+3600/24=171.6 .

您产生的费用是 cal_irr(3600,0.006,240) = 0.01104071每月一次，但在 Excel 中我得到了 1.1054657% .我的 R 代码有什么问题？

Answer 1

您正在寻找小数字，这可能会导致公差问题。尝试:

cal_irr <- function(amount,fee,duration) {
  cash<-c(amount,rep(-1*(amount*fee+amount/duration),duration))
  NPV<-function(r){sum(cash /((1 + r) ^ (seq(along.with = cash)-1)))}
  return(uniroot(NPV, c(0, 1), tol=.0000001)$root)}
cal_irr(3600,0.006,24)
# [1] 0.01105466