if (FALSE) {
library(DendSer) # already used from within the function
dend <- USArrests[1:4, ] %>%
dist() %>%
hclust("ave") %>%
as.dendrogram()
DendSer.dendrogram(dend)
tanglegram(dend, rotate_DendSer(dend))
}
Run the code above in your browser using DataLab