## Not run:
# ## Estimating MSE for 3 variants of both
# ## regression trees and SVMs, on two data sets, using one repetition
# ## of 10-fold CV
# library(e1071)
# library(DMwR)
# data(swiss)
# data(mtcars)
#
# ## running the estimation experiment
# res <- performanceEstimation(
# c(PredTask(Infant.Mortality ~ .,swiss),PredTask(mpg ~ ., mtcars)),
# c(workflowVariants(learner="svm",
# learner.pars=list(cost=c(1,10),gamma=c(0.01,0.5))),
# workflowVariants(learner="rpartXse",
# learner.pars=list(se=c(0,0.5,1)))
# ),
# EstimationTask("mse")
# )
#
# ## the names of the metrics that were estimated in the above experiment
# workflowNames(res)
# ## End(Not run)
Run the code above in your browser using DataLab