我正在尝试制作随机森林分类器,但我不断收到错误“eval(predvars,data,env)中的错误:未找到对象'紫杉二烯生物合成'”。我检查了我的训练和测试数据帧,它们都有相同的列名称。我似乎无法解决这个问题
# Number of iterations for repeated training and testing
n_iterations <- 100
# Store evaluation metrics for each iteration
accuracy_values <- vector("numeric", length = n_iterations)
precision_values <- vector("numeric", length = n_iterations)
recall_values <- vector("numeric", length = n_iterations)
# Perform repeated training and testing
for (i in 1:n_iterations) {
# Split the data into training and testing sets
set.seed(i) # For reproducibility in each iteration
split1<- sample(c(rep(0, 0.7 * nrow(combined_data)), rep(1, 0.3 * nrow(combined_data))))
train <- combined_data[split1 == 0, ]
test <- combined_data[split1== 1, ]
# Train the Random Forest model with confounding variables
rf_model <- randomForest(Group ~ Age + Sex + Bodyweight.kg + ., data = train)
# Evaluate model performance on the test set
predictions <- predict(rf_model, newdata = test)
confusion_matrix <- table(predictions, test_data$Class)
accuracy_values[i] <- sum(diag(confusion_matrix)) / sum(confusion_matrix)
# Compute and store evaluation metrics (accuracy, precision, recall, etc.) from confusion matrix
}