# NOT RUN {
## Multiclass classification
modelIris <- svm(Species ~ ., iris)
y <- predict(modelIris, iris)
## Least Squares
modelTrees <- svm(Height ~ Girth + Volume, trees)
y <- predict(modelTrees, trees)
plot(trees$Height, y)
test(modelTrees, trees)
clean(modelTrees)
clean(modelIris)
# now predict(modelTrees, ...) would not be possible any more
# }
Run the code above in your browser using DataLab