SVM E1071 Corte

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