# NOT RUN {
hc <- hclust(dist(USArrests[1:5,]), "ave")
dend <- as.dendrogram(hc)
dend_pruned <- prune(dend , c("Alaska", "California"), reindex_dend = FALSE )
## A leave have an index larger than the number of leaves:
unlist (dend_pruned)
# [1] 4 3 1
#'
dend_pruned_reindexed <- reindex_dend (dend_pruned)
## All leaf indices are no larger than the number of leaves:
unlist (dend_pruned_reindexed)
# [1] 3 2 1
## The dendrograms are equal:
all.equal (dend_pruned, dend_pruned_reindexed)
# TRUE
# }
Run the code above in your browser using DataLab