# NOT RUN {
library(TunePareto)
data(esl)
data = esl$data
labels = esl$labels
# train classifier
model <- trainTuneParetoClassifier(
classifier = tunePareto.occ( base.classifier = tunePareto.svm()),
trainData = data,
trainLabels = labels,
class.order = as.character(c(4,3,1,0)),
kernel = "linear",
cost = 1)
# predict labels
prediction <- predict(object = model, newdata = data)
# }
Run the code above in your browser using DataLab