Yeniden örnekleme işlevini 1000 kez tekrarlayın? Lapa kullanmadan mı?

Question

Lütfen dışarı çıkın! Herhangi bir yardım için minnettarım! Teşekkürler!

Tekrar tekrar örnekleme yaparken 1000 kez sorun yaşıyorum. Bunu yapmak için replicate() kullanmayı denedim, ancak çalışmıyor. Bunu yapmak için başka bir yöntem var mı? Bu, belki de bunu lapply kullanarak yapılabilir mi gösterebilir? Ben rastgele verileri örnekleyerek 1000 betas0 & 1 alabilirsiniz

#sampling 1000 betas0 & 1 (coefficients) from the data 
get.beta=function(data,indices){ 
    data=data[indices,] #let boot to select sample 
    lm.out=lm(y ~ x,data=data) 
    return(lm.out$coefficients) 
} 
n=nrow(data) 
get.beta(data,1:n) 

bootcoe=boot(data,get.beta,R=1000) #generate 1000 random samples 
head(bootcoe$t) #look at the betas 

Yukarıdaki kod Gönderen: Aşağıdaki benim kodudur. Ve farklı betalar elde etmek için bunu 1000 kez yapmak istiyorum. Bunu replicate() dışında nasıl yapmalıyım?

Answer 1

Bu, replicate'un çalışması gerektiğini gösterdiğim genişletilmiş bir yorumdur. İşte bir CLT örneği. Sadece çizgilerinizi küme parantezleri arasında ne değiştirin.

x <- replicate(1000, { 
    mm <- runif(10) 
    mean(mm) 
    }) 
hist(x)