# NOT RUN {
# }
# 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)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab