# NOT RUN {
data(iris0)
newSamples <- smotefamily::SMOTE(iris0[,-5], iris0[,5])$syn_data
# SMOTE overrides Class attr turning it into class
# and dataset must have same class attribute as newSamples
names(newSamples) <- c(names(newSamples)[-5], "Class")
neater(iris0, newSamples, k = 5, iterations = 100,
smoothFactor = 1, classAttr = "Class")
# }
Run the code above in your browser using DataLab