if (FALSE) {
library(dendextend)
# Getting the dend dend
set.seed(23235)
ss <- sample(1:150, 10)
dend <- iris[ss, -5] %>%
dist() %>%
hclust() %>%
as.dendrogram()
dend %>% plot()
which_leaf(dend)
}
Run the code above in your browser using DataLab