# NOT RUN {
x <- cbind(100,data.matrix(iris[1:4]))
y <- iris$Species
w <- svmMulticlassLP(x,y)
table(predict(w,x),y)
w <- svmLP(x,ifelse(y=="setosa","setosa","not_setosa"))
table(predict(w,x),y)
# }
Run the code above in your browser using DataLab