Fitdist in for循环中出错

我正在运行下面的代码，即保存向量中负二项分布的AIC值

数据文件可从以下网址获得：

---

samples如果在您的中添加调试代码：

for(i in 1:336) {
  a <- samples[, i]
  print(i)
  d <- fitdist(a, distr = "nbinom") 
  nbinom_aic <- rbind(nbinom_aic, d$aic)
}

都是0。我认为这就是fitdist失败的原因

要解决此问题，如果您想
fitdist
所有列，只需检查是否只有1个唯一值，它是否为0。
谢谢。。。成功了..删除了所有只有0的列。。
for(i in 1:336) {
  a <- samples[, i]
  print(i)
  d <- fitdist(a, distr = "nbinom") 
  nbinom_aic <- rbind(nbinom_aic, d$aic)
}

a <- samples[, 63]
summary(a)