if (FALSE) {
data(iris)
# 1) Induce imbalance by subsetting species
mod_iris <- iris[c(1:50, 51:71, 101:111), ]
table(mod_iris$Species)
# 2) Oversample minority classes using SMOTE
bal <- bal_oversampling('Species')
bal <- daltoolbox::fit(bal, mod_iris)
adjust_iris <- daltoolbox::transform(bal, mod_iris)
# 3) Inspect new class distribution
table(adjust_iris$Species) # more balanced counts
}
Run the code above in your browser using DataLab