Proszę mnie wypuścić! Doceniam każdą pomoc! Dzięki!

Mam problem z powtarzaniem próbkowania przez 1000 razy. Próbowałem użyć replicate (), aby to zrobić, ale nie działa. Czy jest jakaś inna metoda, aby to zrobić? Czy ktoś może mi pokazać, czy może to zrobić za pomocą lapply? Oto mój kod:

#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

Z powyższego kodu mogę uzyskać 1000 betów 0 i 1 przez losowe próbkowanie danych. I chciałbym to zrobić 1000 razy, aby uzyskać różne bety. Jak mam to zrobić oprócz replikowania ()?