Пожалуйста, выходи! Я ценю любую помощь! Спасибо!

У меня проблемы с повторением повторной выборки 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 ()?