## Not run:
#
# ## Estimating the error rate of an SVM on the iris data set using
# ## leave one out cross validation
# library(e1071)
# data(iris)
#
# ## Now the evaluation
# eval.res <- loocvEstimates(
# Workflow(wfID="svmTrial",
# learner="svm",learner.pars=list(cost=10,gamma=0.1)
# ),
# PredTask(Species ~ ., iris),
# EstimationTask("err",method=LOOCV()))
#
# ## Check a summary of the results
# summary(eval.res)
#
# ## End(Not run)
Run the code above in your browser using DataLab