# NOT RUN {
#load up a test cluscomp result
data('testcmr');
#look at the result structure
summary(testcmr);
#calculate all of the AUC values from the \code{cluscomp} result for algorithm 'kmeans'
kmeanscmr <- testcmr[grep('kmeans',names(testcmr))];
acs <- aucs(kmeanscmr);
#plot the AUC curve
aucplot(acs);
# }
Run the code above in your browser using DataLab