리샘플링 기능을 1000 번 반복 하시겠습니까? lapply 사용 하시겠습니까?

Question

제발! 나는 어떤 도움을 주셔서 감사합니다! 감사!

1000 회 리 샘플링을 반복하는 데 문제가 있습니다. replicate()를 사용하여 시도했지만 작동하지 않습니다. 거기에 다른 방법이 있습니까? 이것이 lapply를 사용하여 수행 할 수 있다면 누구든지 나를 보여줄 수 있습니까? 나는 무작위 데이터를 샘플링하여 1000 betas0 & 1을 얻을 수

#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 

위의 코드에서 : 다음 내 코드입니다. 그리고 나는 다른 베타를 얻기 위해 1000 번하고 싶습니다. replicate() 외에 어떻게해야합니까?

Answer 1

이것은 확장 된 코멘트로서 replicate이 작동해야 함을 보여줍니다. 다음은 CLT의 예입니다. 중괄호 사이에있는 내용 만 바꾸면됩니다.

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