data(agriculture)
## Compute the dissimilarities using Euclidean metric and without
## standardization
daisy(agriculture, metric = "euclidean", stand = FALSE)
## 2nd plot is similar to Figure 3 in Struyf et al (1996)
plot(pam(agriculture, 2))
## Plot similar to Figure 7 in Struyf et al (1996)
if (FALSE) plot(agnes(agriculture), ask = TRUE)
plot(agnes(agriculture))
## Plot similar to Figure 8 in Struyf et al (1996)
if (FALSE) plot(diana(agriculture), ask = TRUE)
plot(diana(agriculture))
Run the code above in your browser using DataLab