if (FALSE) {
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)
}
Run the code above in your browser using DataLab