随机森林cv

# 加载所需的库

#导入数据集
library(xgboost)
library(randomForest)
library(e1071)
library(caret)

# 读取数据集
data <- read.csv("123.csv")
# 设置交叉验证参数
num_folds <- 10
set.seed(123)
# 初始化训练集和测试集存储预测结果的向量和矩阵
validation_predictions_rf <- vector("list", num_folds)
train_predictions_rf <- vector("list", num_folds)
# 创建交叉验证折叠
folds <- createFolds(data$TP1, k = num_folds, list = TRUE)
# 选择第一折的索引
first_fold_index <- folds[[1]]
# 进行交叉验证
for (fold in 1:num_folds) {
  # 划分训练集和测试集
  train_index <- unlist(folds[-fold])
  test_index <- unlist(folds[fold])
  
  train_data <- data[train_index, ]
  test_data <- data[test_index, ]
  # 使用训练数据训练Random Forest模型
  rf_model <- randomForest(TP1 ~ ., data = train_data, ntree = 100)
  
  # 使用模型对验证集和测试集进行预测
  validati