## Not run:
# dend1 <- USArrests[1:20,] %>% dist %>% hclust %>% as.dendrogram
# dend2 <- USArrests[1:20,] %>% dist %>% hclust(method = "single") %>% as.dendrogram
# set.seed(3525)
# dend2 <- shuffle(dend2)
# tanglegram(dend1,dend2, margin_inner=6.5)
# entanglement(dend1,dend2, L = 2) # 0.79
#
# dend2_corrected <- untangle_step_rotate_1side(dend2, dend1)
# tanglegram(dend1,dend2_corrected, margin_inner=6.5) # Good.
# entanglement(dend1,dend2_corrected, L = 2) # 0.0067
# # it is better, but not perfect. Can we improve it?
#
# dend12_corrected <- untangle_step_rotate_2side(dend1, dend2)
# tanglegram(dend12_corrected[[1]],dend12_corrected[[2]], margin_inner=6.5) # Better...
# entanglement(dend12_corrected[[1]],dend12_corrected[[2]], L=2) # 0.0045
#
#
# # best combination:
# dend12_corrected_1 <- untangle_random_search(dend1, dend2)
# dend12_corrected_2 <- untangle_step_rotate_2side(dend12_corrected_1[[1]],dend12_corrected_1[[2]])
# tanglegram(dend12_corrected_2[[1]],dend12_corrected_2[[2]], margin_inner=6.5) # Better...
# entanglement(dend12_corrected_2[[1]],dend12_corrected_2[[2]], L=2) # 0 - PERFECT.
#
# ## End(Not run)
Run the code above in your browser using DataLab