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