Répétez la fonction de ré-échantillonnage pendant 1000 fois? En utilisant la fabosité?
S'il te plait moi! J'apprécie toutes les aides! Merci!
J'ai des problèmes sur la répétition de réétrogler pendant 1000 fois. J'ai essayé d'utiliser Replicate () pour le faire, mais cela ne fonctionne pas. Y a-t-il une autre méthode pour faire cela? Quelqu'un peut-il me montrer si cela peut-être effectué en utilisant la péniche? 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 bettas0 & 1 par échantillonnage aléatoire des données. Et je voudrais faire cela 1000 fois pour obtenir différents bêtas. Comment dois-je faire cela en plus de reproduire ()?
C'est plus un commentaire étendu où je démontre que replicate devrait fonctionner. Voici un exemple de CLT. Il suffit de remplacer vos lignes Qu'est-ce qui entre les accolades.
x <- replicate(1000, {
mm <- runif(10)
mean(mm)
})
hist(x)
