Повторите функцию повторной выборки в 1000 раз? Используется?

Question

Прошу меня! Я ценю любую помощь! Благодаря!

У меня есть проблема при повторном повторном отборе на 1000 раз. Я попытался использовать replicate(), чтобы сделать это, но он не работает. Есть ли другой способ сделать это? Может ли кто-нибудь показать мне, возможно ли это сделать, используя lapply? Ниже мой код:

#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 betas0 & 1 методом случайной выборки данных. И я хотел бы сделать это 1000 раз, чтобы получить разные бета-версии. Как мне это сделать, кроме replicate()?

Answer 1

Это более подробный комментарий, где я демонстрирую, что replicate должен работать. Вот пример CLT. Просто замените свои линии тем, что находится между фигурными фигурными скобками.

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