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