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