## Not run:
#
# dend <- iris[,-5] %>% dist %>% hclust %>% as.dendrogram
# dend2 <- iris[,-5] %>% dist %>% hclust(method = "single") %>% as.dendrogram
#
# x = list(dend, 1, dend2)
# as.dendlist(x)
#
# ## End(Not run)
Run the code above in your browser using DataLab