Cutoff SVM E1071

#you need covert y to factors
model <- svm(as.factor(vs) ~ hp+mpg+gear,data=mtcars)
predict(model)
Xerothermic Xenomorph