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
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/dendlist.R
\name{dendlist}
\alias{dendlist}
\alias{plot.dendlist}
\title{Creating a dendlist object from several dendrograms}
\usage{
dendlist(..., which)
\method{plot}{dendlist}(x, which = c(1L, 2L), ...)
}
\arguments{
\item{...}{several dendrogram/hclust/phylo or dendlist objects
If an object is hclust or phylo - it will be converted
into a dendrogram.}
\item{which}{an integer vector of length 2, indicating
which of the trees in the dendlist object should be plotted (relevant for dendlist)
When used inside dendlist, which is still an integer, but it can be of any length,
and it can be used to create a smaller dendlist.}
\item{x}{a dendlist object}
}
\value{
A list of class dendlist where each item
is a dendrogram
}
\description{
It accepts several dendrograms and or dendlist objects
and chain them all together.
This function aim to help with the usability of
comparing two or more dendrograms.
}
\details{
It there are list() in the ..., they are omitted.
If ... is missing, it returns an empty dendlist.
}
\examples{
\dontrun{
dend <- iris[, -5] \%>\%
dist() \%>\%
hclust() \%>\%
as.dendrogram()
dend2 <- iris[, -5] \%>\%
dist() \%>\%
hclust(method = "single") \%>\%
as.dendrogram()
dendlist(1:4, 5, a = dend) # Error
# dendlist <- function (...) list(...)
dendlist(dend)
dendlist(dend, dend)
dendlist(dend, dend, dendlist(dend))
# notice how the order of
dendlist(dend, dend2)
dendlist(dend) \%>\% dendlist(dend2)
dendlist(dend) \%>\%
dendlist(dend2) \%>\%
dendlist(dend)
dendlist(dend, dend2) \%>\% tanglegram()
tanglegram(tree1 = dendlist(dend, dend2))
dend <- iris[1:20, -5] \%>\%
dist() \%>\%
hclust() \%>\%
as.dendrogram()
dend2 <- iris[1:20, -5] \%>\%
dist() \%>\%
hclust(method = "single") \%>\%
as.dendrogram()
x <- dendlist(dend, dend2)
plot(x)
}
}
|
