# NOT RUN {
# }
# NOT RUN {
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