# define dendrogram object to play with:
dend <- USArrests[1:4,] %>% dist %>% hclust(method = "ave") %>% as.dendrogram
# 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