0

我正在尝试使用引导置信区间进行一些假设检验，但是在设置引导时遇到了一些麻烦。目标是在 theta=1 和 0.05 级别测试空值。我提供了下面使用的数据样本：

y <- c(3,5,3,1,2,1,2,1,0,2,4,3,1,4,1,2,2,0,4,2,2,4,0,2,1)

在引导程序中，我还尝试使用以下数值优化dpois(data,lambda=exp(x)：我提供了我在下面生成的代码：

nboot<-1000
bootxbar <- rep(NA,nboot)
for (i in 1:nboot) {
  data <- y[sample(1:n,replace=TRUE)]
  bootxbar[i]<-function(x) dpois(data,lambda=exp(x))
}
quantile(bootxbar,c(0.025,0.975))

错误如下：

bootxbar[i] <- function(x) dpois(y, lambda = exp(x)) 中的错误：子赋值类型修复中的不兼容类型（从闭包到逻辑）

4

0 回答 0