Блог

Используя R, я создаю 3 дистрибутива, и они, похоже, созданы, однако, когда я пытаюсь использовать ограничение для определения верхнего и нижнего пределов, я получаю «Предупреждение о Nans», ниже приведен код. Мой друг попробовал то же самое, и у него нет проблемы. Я должен упомянуть, что я делаю это Jupyter.

 set.seed(1)
n.sim=100
smpl.sizes=c(1,2,4,8,16,32,64,128,256,512,1024)

for (smpl.n in smpl.sizes){
    norm.counter<-0
    exp.counter<-0
    uni.counter<-0

    norm.f<-numeric()
    exp.f<-numeric()
    uni.f<-numeric()

       for (i in 1:n.sim){
          norm<-rnorm(smpl.n)
          exp<-rexp(smpl.n)    
          uni<-runif(smpl.n)  

           norm.cint.upper <- confint(lm(norm~1))[2]
           norm.cint.upper <- confint(lm(norm~1))[1]
           exp.cint.upper <- confint(lm(exp~1))[2]
           exp.cint.upper <- confint(lm(exp~1))[1]
           uni.cint.upper <- confint(lm(uni~1))[2]
           uni.cint.upper <- confint(lm(uni~1))[2]
}
  

}

Как только я запускаю confint, я получаю предупреждения.

Похоже, виновником является то, что некоторых из моих небольших размеров выборки было просто недостаточно для удаления NAN

Ошибка smpl.размеры = c(1,2,4,8,16,32,64,128,256,512,1024)

Решение

 smpl.sizes=c(16,32,64,128,256,512,1024)