如何在R中重复训练和测试10次

# 创建一个空的列表，用于保存每次训练和测试的结果
results <- list()

# 设置循环次数为10次
for (i in 1:10) {
  # 在每次循环中进行训练和测试的操作
  # 这里假设训练和测试的函数分别为train()和test()
  train_result <- train()
  test_result <- test()
  
  # 将训练和测试的结果保存到列表中
  results[[i]] <- list(train_result = train_result, test_result = test_result)
}

# 循环结束后，可以对保存的结果进行进一步的分析和处理
# 例如，可以计算平均值、标准差等统计量
train_results <- sapply(results, function(x) x$train_result)
test_results <- sapply(results, function(x) x$test_result)

mean_train <- mean(train_results)
mean_test <- mean(test_results)
sd_train <- sd(train_results)
sd_test <- sd(test_results)