ruspini: Ruspini Data

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))