# call tunePareto using a k-NN classifier
# with different 'k' and 'l' on the 'iris' data set
x <- tunePareto(data = iris[, -ncol(iris)],
labels = iris[, ncol(iris)],
classifier = tunePareto.knn(),
k = c(5,7,9),
l = c(1,2,3),
objectiveFunctions=list(cvError(10, 10),
cvSpecificity(10, 10, caseClass="setosa")))
# plot the graph
plotDominationGraph(x)
Run the code above in your browser using DataLab