# define dendrogram object to play with:
dend <- as.dendrogram(hclust(dist(USArrests[1:4,]), "ave"))
# plot(dend)
order.dendrogram(dend)
dend2 <- prune(dend, "Alaska")
order.dendrogram(dend2)
order.dendrogram(rank_order.dendrogram(dend2))Run the code above in your browser using DataLab