powered by
displaySVM(svm.model, dataframe, displayPoints = TRUE, subset = NULL, steps = 100, alpha = 0.4, lwd = 1)
# extract 2 first variables and build data.frame temp <- buildFrame(irisdata, irislabels) iris.model <- e1071::svm(labels ~ ., data=temp, cost=100, gamma=1) displaySVM(iris.model, temp)
Run the code above in your browser using DataLab