chouyang<-function(x) {data1<-list(matrix(rep(0,3000),1000,3));
  for(i in 1:50)
  {xx<-x[sample(1:nrow(x),5),];hgfx<-lm(xx$V1~xx$V2+xx$V3);
   data1[i]<-hgfx$coefficients }
}
我的目的是要创建一个名为chouyang的函数，作用是从数据框x中抽取5行记录，然后对变量V1和V2，V3做回归分析，结果保存在hgfx中，然后只要回归分析的三个估计系数。这样做50次，每次结果保存在事先创建好的一个列表矩阵中，但是运行老不成功，请教大神，希望不吝赐教，谢谢。