## Not run:
#
# dend <- USArrests[1:4,] %>% dist %>% hclust %>% as.dendrogram
# order.dendrogram(dend) # c(4L, 3L, 1L, 2L)
#
# dend_changed <- dend
# order.dendrogram(dend_changed) <- 1:4
# order.dendrogram(dend_changed) # c(1:4)
#
# # now let's fix the order of the new object to be as it was:
# dend_changed <- match_order_by_labels(dend_changed, dend)
# # these two are now the same:
# order.dendrogram(dend_changed)
# order.dendrogram(dend))
#
# ## End(Not run)
Run the code above in your browser using DataLab