##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (hc0, hc1)
{
hcd0 <- as.dendrogram(hc0)
hcd1 <- as.dendrogram(hc1)
hcd0 <- match_order_by_labels(hcd0, hcd1)
dends_0_1 <- dendlist(hcd0, hcd1)
t <- tanglegram(dends_0_1)
t
}
Run the code above in your browser using DataLab