# NOT RUN {
dat <- sample(c(TRUE, FALSE), 150, replace = TRUE)
balanced.cv.folds.from.vector(dat, nfolds = 2)
balanced.cv.folds.from.vector(dat, nfolds = 10)
balanced.cv.folds.from.vector(dat, nfolds = 10, join.all = TRUE)
balanced.cv.folds.from.vector(dat[1:5], nfolds = 10) # will give a warning
balanced.cv.folds.from.vector(dat[1:10], nfolds = 10) # will give a warning
# }
Run the code above in your browser using DataLab