5折交叉验证r代码，用bootstrap包中的crossval函数

以下是使用 bootstrap 包中的 `crossval` 函数进行 5 折交叉验证的 R 代码示例：

library(bootstrap)

# 加载数据
data(iris)

# 定义模型
model <- function(train, test) {
  fit <- randomForest(Species ~ ., data=train)
  pred <- predict(fit, newdata=test)
  return(pred)
}

# 进行交叉验证
cv <- crossval(data=iris, model=model, k=5)

# 打印结果
print(cv)

在这个示例中，我们定义了一个 `model` 函数，该函数使用随机森林算法训练模型并进行预测。然后，我们使用 `crossval` 函数进行 5 折交叉验证，并打印出结果。