library(cluster);
data(votes.repub);
myDiana <- diana(votes.repub, metric = "manhattan", stand = TRUE); plot(myDiana, main="Dendrogram of Republican votes");