## Not run:
#
# dend <- iris[,-5] %>% dist %>% hclust %>% as.dendrogram
# dend2 <- iris[,-5] %>% dist %>% hclust(method = "single") %>% as.dendrogram
# dendlist(1:4, 5, a=dend) # Error
# # dendlist <- function (...) list(...)
# dendlist(dend)
# dendlist(dend, dend)
# dendlist(dend, dend, dendlist(dend))
# # notice how the order of
# dendlist(dend, dend2)
# dendlist(dend) %>% dendlist(dend2)
# dendlist(dend) %>% dendlist(dend2) %>% dendlist(dend)
# dendlist(dend, dend2) %>% tanglegram
# tanglegram(tree1 = dendlist(dend, dend2))
#
# dend <- iris[1:20, -5] %>% dist %>% hclust %>% as.dendrogram
# dend2 <- iris[1:20, -5] %>% dist %>% hclust(method = "single") %>% as.dendrogram
#
# x <- dendlist(dend, dend2)
# plot(x)
#
# ## End(Not run)
Run the code above in your browser using DataLab