在 R 中迭代几个命令并将平均结果保存到 dataframe

Question

也许你可以帮助我。 我试图运行下面几行代码的 10000 次并保存所获得结果的平均值，我尝试创建函数。 将以下全部存储并复制但没有成功，问题是如何在这种情况下通过将以下命令存储在 x 中来使用 rep(x. ..?) function？ 或者也许有另一种方法可以做到这一点？

DF_vol_10 = DF_ESG_mean_0_10[ ,c(1,2,10)] %>%
  pivot_wider(names_from = Instrument, values_from = Volume)
DF_vol_10 = DF_vol_10[ , sample(ncol(DF_vol_10), size=100)]
DF_vol_10[is.na(DF_vol_10)] <- 0
DF_vol_10$sum = rowSums(DF_vol_10, na.rm=TRUE)
Weights_10 = DF_vol_10 / DF_vol_10$sum
Weights_10 =as.timeSeries(Weights_10)
Stab_0_10 = (Weights_10 - lag(Weights_10, k=1))^2
Stab_0_10 = as.data.frame(Stab_0_10)
Stab_0_10 = Stab_0_10 %>% 
  summarise_if(is.numeric, sum, na.rm = TRUE)
Stab_0_10$Stability = rowSums(Stab_0_10, na.rm=TRUE)
print(Stab_0_10$Stability)