if (requireNamespace("rsample", quietly = TRUE)) {
set.seed(123)
cv_splits <- rsample::vfold_cv(mtcars, v = 5)
# Apply summary over training sets
fcv(cv_splits$splits, function(split) {
summary(rsample::analysis(split))
})
# With progress and parallel execution
# \donttest{
fcv(cv_splits$splits, function(split) {
summary(rsample::analysis(split))
}, ncores = 2, pb = TRUE)
# }
}
Run the code above in your browser using DataLab