## 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 iterations scores of svm.v2 on swiss
# getIterationsPreds(res,"svm.v2","swiss.Infant.Mortality",rep=1,fold=2)
# ## this would get the same
# getIterationsPreds(res,"svm.v2","swiss.Infant.Mortality",it=2)
#
# getIterationsPreds(res,"svm.v2","swiss.Infant.Mortality",rep=2,fold=3)
# ## this would get the same
# getIterationsPreds(res,"svm.v2","swiss.Infant.Mortality",it=8)
#
# ## Get the results of all iterations
# getIterationsPreds(res,"svm.v1","swiss.Infant.Mortality")
#
# ## End(Not run)
Run the code above in your browser using DataLab