data(DutchUtility)
truedigit <- rownames(DutchUtility)
(re <- RSKC(DutchUtility,ncl=10,alpha=0.1,L1=5.7,nstart=1000))
Sensitivity(re$labels,truedigit)
table(re$labels,truedigit)
## Check the bitmap of the trimmed observations
showDigit(re$oW[1])
## Check the features which receive zero weights
names(which(re$weights==0))Run the code above in your browser using DataLab