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