# NOT RUN {
library(cluster)
data(ruspini)
ruspini4sol <- MonoClust(ruspini, nclusters = 4)
ruspini4sol
medoid(which(ruspini4sol$membership == 4), ruspini4sol$dist)
# Check with the output with "4" label
ruspini4sol$medoids
# }
Run the code above in your browser using DataLab