abc<- function(o,e,s,r, pp) {

    abc   <- log2(                     (o+s)/     (e+r) )

    abc_low <- log2(qgamma(p=pp , shape=(o+s), rate=(e+r)))

    abc_high <- log2(qgamma(p=(1-pp), shape=(o+s), rate=(e+r)))

    return(list(abc=abc,abc_low=abc_low,abc_high=abc_high))

}

result <- abc(      c,

e,

0.5,                     

0.5,                     

0.025                  

);

结果显示：“错误于o+ s: 二进列运算符中有非数值参数”

请问是什么原因？如何修改啊？