powered by
flip_leaves(dend, leaves1, leaves2, ...)
dend1 <- as.dendrogram(hclust(dist(USArrests[1:5,]))) dend2 <- flip_leaves(dend1, c(3,5), c(1,2)) tanglegram(dend1,dend2) entanglement(dend1,dend2, L = 2) # 0.4
Run the code above in your browser using DataLab