## Not run:
#
# 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))
# ## End(Not run)
Run the code above in your browser using DataLab