Tries to run DendSer on a dendrogram
The function tries to turn the dend into hclust. It then uses the cophenetic distance matrix for optimizing the tree's rotation.
This is a good (and fast) starting point for linkuntangle_step_rotate_2side
untangle_DendSer(dend, ...)
dend |
An object of class dendlist |
... |
NOT USED |
A dendlist object with ordered dends
## Not run:
set.seed(232)
ss <- sample(1:150, 20)
dend1 <- iris[ss, -5] %>%
dist() %>%
hclust("com") %>%
as.dendrogram()
dend2 <- iris[ss, -5] %>%
dist() %>%
hclust("sin") %>%
as.dendrogram()
dend12 <- dendlist(dend1, dend2)
# bad solutions
dend12 %>% tanglegram()
dend12 %>%
untangle("step2") %>%
tanglegram()
dend12 %>%
untangle_DendSer() %>%
tanglegram()
# but the combination is quite awsome:
dend12 %>%
untangle_DendSer() %>%
untangle("step2") %>%
tanglegram()
## End(Not run)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.