## 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)
# data(swiss)
#
# ## running the estimation experiment
# res <- performanceEstimation(
# PredTask(Infant.Mortality ~ .,swiss),
# workflowVariants(learner="svm",
# learner.pars=list(cost=c(1,10),gamma=c(0.01,0.5))),
# EstimationTask("mse",method=CV(nReps=2,nFolds=5))
# )
#
# ## Get the summary of the estimations of svm.v2 on swiss
# estimationSummary(res,"svm.v2","swiss.Infant.Mortality")
#
# ## End(Not run)
Run the code above in your browser using DataLab