# NOT RUN {
data(iris)
## Multiclassification
svm <- SVMTrainer$new()
svm$fit(iris, "Species")
p <- svm$predict(iris)
## Least Squares
svm <- SVMTrainer$new()
svm$fit(trees, "Height")
p <- svm$predict(trees)
# }
Run the code above in your browser using DataLab