data(optd)
truedigit <- rownames(optd)
(re <- RSKC(optd,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
showbitmap(re$oW)
## Check the features which receive zero weights
names(which(re$weights==0))Run the code above in your browser using DataLab