# NOT RUN {
library(e1071)
library(dplyr)
x <- svm_model('iris', 'Petal.Length', model.var = 'model_svm')
exe(x)
print(model_svm)
x <- svm_prediction('iris', 'Petal.Length', 'model_svm', 'my_prediction')
exe(x)
print(my_prediction)
# }
Run the code above in your browser using DataCamp Workspace