## Not run:
# ## Estimating several evaluation metrics on different variants of a
# ## regression tree and of a SVM, on two data sets, using one repetition
# ## of 10-fold CV
#
# data(swiss)
# data(mtcars)
# library(e1071)
#
# ## run the experimental comparison
# results <- performanceEstimation(
# c(PredTask(Infant.Mortality ~ ., swiss),
# PredTask(mpg ~ ., mtcars)),
# c(workflowVariants(learner='svm',
# learner.pars=list(cost=c(1,5),gamma=c(0.1,0.01))
# )
# ),
# EstimationTask(metrics=c("mse","mae"),method=CV(nReps=2,nFolds=5))
# )
# ## get a ranking of the top workflows for each task and evaluation metric
# rankWorkflows(results)
# ## get a ranking of the top workflows for each task and evaluation
# ## metric by the median score on all iterations instead of the mean score
# rankWorkflows(results, stat="med")
# ## End(Not run)
Run the code above in your browser using DataLab