if (FALSE) {
dend <- iris[, -5] %>%
dist() %>%
hclust() %>%
as.dendrogram()
dend2 <- iris[, -5] %>%
dist() %>%
hclust(method = "single") %>%
as.dendrogram()
x <- list(dend, 1, dend2)
as.dendlist(x)
}
Run the code above in your browser using DataLab