## 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