loc <- cmdscale(eurodist)
x <- loc[, 1]
y <- -loc[, 2]
plot(x, y, xlab = "", ylab = "", asp = 1, axes = F)
text(x, y, rownames(loc), cex = 0.6)

d <- hclust (eurodist, "ward.D2")
plot (d)

kmeans (eurodist, 3)