powered by
data(ruspini)
agnes
data(ruspini) ## Plot similar to Figure 4 in Stryuf et al (1996) ## Not run: plot(pam(ruspini, 4), ask = TRUE) ## Plot similar to Figure 6 in Stryuf et al (1996) plot(fanny(ruspini, 5))
Run the code above in your browser using DataLab