## Not run:
# ## Run some experiments with the swiss data and two different
# ## prediction models
# data(swiss)
#
# exp1 <- performanceEstimation(
# PredTask(Infant.Mortality ~ .,swiss),
# workflowVariants(learner="svm",
# learner.pars=list(cost=c(1,10),gamma=c(0.01,0.5))),
# EstimationTask("mse")
# )
#
# exp2 <- performanceEstimation(
# PredTask(Infant.Mortality ~ .,swiss),
# Workflow(learner="lm"),
# EstimationTask("mse")
# )
#
#
# ## joining the two experiments by workflows
# all <- mergeEstimationRes(exp1,exp2,by="workflows")
# topPerformers(all) # check the best results
#
# ## now an example by adding new metrics
# exp3 <- performanceEstimation(
# PredTask(Infant.Mortality ~ .,swiss),
# Workflow(learner="lm"),
# EstimationTask(metrics=c("mae","totTime"))
# )
#
# allLM <- mergeEstimationRes(exp2,exp3,by="metrics")
# topPerformers(allLM)
#
# ## End(Not run)
Run the code above in your browser using DataLab