# NOT RUN {
modelTrees <- svm(Height ~ Girth + Volume, trees[1:10, ]) # least squares
y <- test(modelTrees,trees[-1:-10,])
errors(y)
# }
# NOT RUN {
banana <- liquidData('banana-bc')
s_banana <- rocSVM(Y~., banana$test)
result <- test(s_banana, banana$train)
errors(result, showall=TRUE)
# }
Run the code above in your browser using DataLab