如何捕获我在R中的循环中创建的对象的元素？

Question

我试图捕获我用循环创建的一组子样本中的每个子样本的变量（Z）的均值（在这种情况下，我创建100个子样本，每个子样本有5个观察值）。 但是，我没有设法为每个样本捕获我想要的变量（Z）的平均值并将其分配给一个对象（在这种情况下，是向量mean_z_5中的一个位置）。这是我试图使用的代码：

mean_z_5<-vector(mode="numeric", length=100)

for (i in 1:100){
   assign(paste("muestra5",i,sep="_"), data1[sample(nrow(basetaller1),    size=5, 
           replace=TRUE), ])
   object= get(paste("muestra5",i,sep="_"))
   medias_z_5[i]<-object
} 

任何有想法该怎么做的人？

塞尔吉奥