SMOTE-function not working in R

Question

I need to apply the smote-algorithm to a data set, but can't get it to work.

Example:

x <- c(12,13,14,16,20,25,30,50,75,71)
y <- c(0,0,1,1,1,1,1,1,1,1)

frame <- data.frame(x,y)

library(DMwR)

smotedobs <- SMOTE(y~ ., frame, perc.over=300)

This gives the following error:

Error in scale.default(T, T[i, ], ranges) : subscript out of bounds
In addition: Warning messages:
1: In FUN(newX[, i], ...) :
  no non-missing arguments to max; returning -Inf
2: In FUN(newX[, i], ...) : no non-missing arguments to min; returning Inf

Would appriciate any kind of help or hints.

Answer 1

If you convert 'y' to a factor, SMOTE will return without error - but the synthesized observations have NA values for x