df <- data.frame(
x = factor(sample(letters[1:3], 100, replace = TRUE)),
y = factor(sample(letters[1:2], 100, replace = TRUE)),
class = factor(c(rep("minority", 20), rep("majority", 80)))
)
res <- smoten(df, var = "class")
res <- smoten(df, var = "class", k = 10)
res <- smoten(df, var = "class", over_ratio = 0.8)
Run the code above in your browser using DataLab