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