# NOT RUN {
vfold_cv(mtcars, v = 10)
vfold_cv(mtcars, v = 10, repeats = 2)
library(purrr)
data(wa_churn, package = "modeldata")
set.seed(13)
folds1 <- vfold_cv(wa_churn, v = 5)
map_dbl(folds1$splits,
function(x) {
dat <- as.data.frame(x)$churn
mean(dat == "Yes")
})
set.seed(13)
folds2 <- vfold_cv(wa_churn, strata = churn, v = 5)
map_dbl(folds2$splits,
function(x) {
dat <- as.data.frame(x)$churn
mean(dat == "Yes")
})
set.seed(13)
folds3 <- vfold_cv(wa_churn, strata = tenure, breaks = 6, v = 5)
map_dbl(folds3$splits,
function(x) {
dat <- as.data.frame(x)$churn
mean(dat == "Yes")
})
# }
Run the code above in your browser using DataLab