# NOT RUN {
#load a test cluscomp result set
data(testcmr)
#calculate all of the AUC values from the \code{cluscomp} result for algorithm 'kmeans'
kmeanscmr <- testcmr[grep('kmeans',names(testcmr))];
acs <- aucs(kmeanscmr);
#calculate the delta-K values
dks <- deltak(acs);
# }
Run the code above in your browser using DataLab