if (FALSE) {
set.seed(123)
data(iris)
mod_iris <- iris[c(1:50, 51:71, 101:111), ] # induce imbalance
table(mod_iris$Species)
bal <- bal_subsampling('Species') # random under-sampling
bal <- daltoolbox::fit(bal, mod_iris)
adjust_iris <- daltoolbox::transform(bal, mod_iris)
table(adjust_iris$Species) # all classes at minority count
}
Run the code above in your browser using DataLab