X
与参数 呈指数分布lambda=0.5
。
我想找Pr(1/mean(X)< K)=0.95
因为我不知道的分布1/mean(X)
我通过下面的代码生成一个分布。
m<-c()
exponentialFunc<-function(n,lambda,nsim){
for(i in seq(nsim)){
x<-rexp(n,lambda)
y<-mean(x)
m<-c(m,1/y)
}
m
}
现在m
是分布1/mean(x)
。
现在我调用了这个函数exponentialFunc(10,0.5,10000)
,它给出了一系列 m 的值。
但是当我想找到这个分布的分位数时,当我使用quantile(m,0.95)
输出 时它的概率为 0.95
> quantile(m,0.95)
95%
NA
为什么会产生NA
?我的代码有什么问题吗?