解决了 主要是精度问题容易造成对数函数无意义 因此将比值定义为新参数a替换掉m
这样R就可以计算了
更改后的代码如下自取
n <- 4644;
m <- seq(from=1, to=298, length=298);
a=m/n
p <- .05; # 例外发生的概率
conf <- .95; # chi^2 分布的置信水平
LR=n*(-2*log(((1-p)^(1-a) )* (p^a))+2*log(((1-a)^(1-a))*(a^a)));


雷达卡




京公网安备 11010802022788号







