## Not run:
# # Load the library which provides svm
# library(e1071)
#
# # Create your data
# data(iris)
#
# # Create a model
# parSvmModel <- parallelML("svm(formula = Species ~ ., data = iris)",
# "e1071",samplingSize = 0.8)
#
# # Get prediction
# parSvmPred <- predictML("predict(parSvmModel,newdata=iris)",
# "e1071","vote")
#
# # Check the quality
# table(parSvmPred,iris$Species)
# ## End(Not run)
Run the code above in your browser using DataLab