## Not run:
# dend1 <- USArrests[1:5,] %>% dist %>% hclust %>% as.dendrogram
# dend2 <- all_couple_rotations_at_k(dend1, k=2)[[2]]
# tanglegram(dend1,dend2)
# entanglement(dend1,dend2, L = 2) # 0.5
#
# dend2 <- all_couple_rotations_at_k(dend1, k=3)[[2]]
# tanglegram(dend1,dend2)
# entanglement(dend1,dend2, L = 2) # 0.4
#
# dend2 <- all_couple_rotations_at_k(dend1, k=4)[[2]]
# tanglegram(dend1,dend2)
# entanglement(dend1,dend2, L = 2) # 0.05
# ## End(Not run)
Run the code above in your browser using DataLab