## Not run:
#
# ## Estimating the MSE of a SVM variant on the
# ## swiss data, using 50 repetitions of .632 bootstrap
# library(e1071)
# data(swiss)
#
# ## running the estimation experiment
# res <- bootEstimates(
# Workflow(wfID="svmC10G01",
# learner="svm",learner.pars=list(cost=10,gamma=0.1)
# ),
# PredTask(Infant.Mortality ~ .,swiss),
# EstimationTask("mse",method=Bootstrap(type=".632",nReps=50))
# )
#
# ## Check a summary of the results
# summary(res)
#
# ## End(Not run)
Run the code above in your browser using DataLab