powered by
myclus(data = swiss, k = 3)
library(MASS) data(swiss) cl <- myclus(data = swiss, k = 3) gap(swiss,cl$cluster)
Run the code above in your browser using DataLab