Error when predicting data with NAs

[pecanka]

When using the predict method on a wsvm object with newdata that has NA values in some columns the call produces an error. The problem happens when assigning names to ret2:

m = WeightSVM::wsvm(cyl~., weight=1:nrow(mtcars), data=mtcars)
mtcars2 = mtcars
mtcars2$mpg[1] = NA
predict(m, newdata=mtcars2)

Error in names(ret2) <- rowns : 
  'names' attribute [32] must be the same length as the vector [31]