## 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)
#
# ## End(Not run)
Run the code above in your browser using DataLab