# \donttest{
if (requireNamespace("caret", quietly = TRUE)) {
ctrl <- caret::trainControl(method = "cv", number = 5)
model <- caret::train(mpg ~ ., data = mtcars[1:25, ], method = "lm",
trControl = ctrl, preProcess = c("center", "scale"))
result <- borg_pipeline(model, train_idx = 1:25, test_idx = 26:32,
data = mtcars)
print(result)
}
# }
Run the code above in your browser using DataLab