Répétez la fonction de ré-échantillonnage pour 1000 fois? En utilisant lapply?

Moi s'il vous plaît! J'apprécie toute l'aide ! Merci!

J'ai du mal à répéter la faire re-échantillonnage de 1000 fois.
J'ai essayé d'utiliser replicate() pour le faire mais ça ne fonctionne pas. Est-il une autre méthode pour le faire? Quelqu'un peut-il me montrer si cela peut être fait en utilisant lapply?
Voici mon code:

#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

Du code ci-dessus, je peux obtenir 1000 betas0 & 1 par échantillonnage aléatoire des données. Et je tiens à le faire 1000 fois afin d'obtenir les différentes bêtas. Comment dois-je faire, qu'en plus de se répliquer()?

source d'informationauteur user2978129

lm r statistics-bootstrap

21

C'est plus un prolongée commentaire où je démontre que replicate devrait fonctionner. Voici un exemple d'un CLT. Il suffit de remplacer vos lignes de ce qui est entre les accolades.
```
x <- replicate(1000, {
  mm <- runif(10)
  mean(mm)
  })
hist(x)
```

Vous devez vous connecter pour publier un commentaire.