# NOT RUN {
library(TunePareto)
data(esl)
data <- esl$data
labels <- esl$labels
foldList <- generateCVRuns(labels = labels,
ntimes = 2,
nfold = 2,
leaveOneOut = FALSE,
stratified = TRUE)
predMap <- predictionMap(data, labels, foldList = foldList,
classifier = tunePareto.svm(), kernel='linear')
# generate Subcascades object
conf.table <- confusionTable(predMap,cascade='0>1>3>4',other.classes = 'all')
plot(conf.table)
# }
Run the code above in your browser using DataLab