powered by
ubSMOTE(X, Y, perc.over = 200, k = 5, perc.under = 200, verbose = TRUE)
ubBalance
library(unbalanced) data(ubIonosphere) n<-ncol(ubIonosphere) output<-ubIonosphere$Class input<-ubIonosphere[ ,-n] data<-ubSMOTE(X=input, Y= output) newData<-cbind(data$X, data$Y)
Run the code above in your browser using DataLab