# NOT RUN {
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 DataCamp Workspace