## 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))
#
# ## End(Not run)
Run the code above in your browser using DataLab