# NOT RUN {
### not run
run = FALSE
if(run){
## load optidigits dataset
data(optidigits)
## obtain a clustering solution using normalised cut hyperplanes
sol <- ncutdc(optidigits$x, 10)
## visualise the cluster means as images
optidigits_mean_images(sol$cluster)
}
# }
Run the code above in your browser using DataLab