1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/untangle.R
\name{untangle}
\alias{untangle}
\alias{untangle.default}
\alias{untangle_labels}
\alias{untangle.dendrogram}
\alias{untangle.dendlist}
\title{untangle dendrograms}
\usage{
untangle(dend1, ...)
\method{untangle}{default}(dend1, ...)
untangle_labels(dend1, dend2, ...)
\method{untangle}{dendrogram}(
dend1,
dend2,
method = c("labels", "ladderize", "random", "step1side", "step2side", "DendSer"),
...
)
\method{untangle}{dendlist}(
dend1,
method = c("labels", "ladderize", "random", "step1side", "step2side", "DendSer"),
which = c(1L, 2L),
...
)
}
\arguments{
\item{dend1}{a dednrogram or a dendlist object}
\item{...}{passed to the releavnt untangle function}
\item{dend2}{A second dednrogram (to untangle against)}
\item{method}{a character indicating the type of untangle
heuristic to use.}
\item{which}{an integer vector of length 2, indicating
which of the trees in the dendlist object should be plotted}
}
\value{
A \link{dendlist}, with two trees after
they have been untangled.
If the dendlist was originally larger than 2, it will return the original dendlist
but with the relevant trees properly rotate.
}
\description{
One untangle function to rule them all.
This function untangles dendrogram lists (dendlist),
Using various heuristics.
}
\details{
This function wraps all of the untagnle functions,
in order to make it easier to find our about (and use) them.
}
\examples{
\dontrun{
set.seed(23235)
ss <- sample(1:150, 10)
dend1 <- iris[ss, -5] \%>\%
dist() \%>\%
hclust("com") \%>\%
as.dendrogram()
dend2 <- iris[ss, -5] \%>\%
dist() \%>\%
hclust("sin") \%>\%
as.dendrogram()
dend12 <- dendlist(dend1, dend2)
dend12 \%>\% tanglegram()
untangle(dend1, dend2, method = "random", R = 5) \%>\% tanglegram()
# it works, and we get something different:
set.seed(1234)
dend12 \%>\%
untangle(method = "random", R = 5) \%>\%
tanglegram()
set.seed(1234)
# fixes it completely:
dend12 \%>\%
untangle(method = "random", R = 5) \%>\%
untangle(method = "step1") \%>\%
tanglegram()
# not good enough
dend12 \%>\%
untangle(method = "step1") \%>\%
tanglegram()
# not good enough
dend12 \%>\%
untangle(method = "step2") \%>\%
tanglegram()
# How we might wish to use it:
set.seed(12777)
dend12 \%>\%
untangle(method = "random", R = 1) \%>\%
untangle(method = "step2") \%>\%
tanglegram()
}
}
\seealso{
\link{tanglegram}, \link{untangle_random_search},
\link{untangle_step_rotate_1side}, \link{untangle_step_rotate_2side},
\link{untangle_DendSer},
\link{entanglement}
}
\author{
Tal Galili
}
|
