参考论文
[1]蒋福坤,刘正春.指数分布参数的区间估计和假设检验[J].嘉兴学院学报,2004(03):13-15.
代码
# 单参数指数分布的1-alpha 的置信区间
library(VGAM)
#下面的rexp是VGAM包里的
expci <- function(n,scale,shape,alpha){
x <- rexp(n,rate = 1/shape)
xbar <- mean(x)
expcimin <-qgamma(alpha/2,scale=1,shape=n) /(n