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
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/nleaves.R
\name{count_terminal_nodes}
\alias{count_terminal_nodes}
\title{Counts the number of terminal nodes (merging 0 nodes!)}
\usage{
count_terminal_nodes(dend_node, ...)
}
\arguments{
\item{dend_node}{a dendrogram object for which to count its number of terminal nodes (leaves or 0 height nodes).}
\item{...}{not used}
}
\value{
The number of terminal nodes (excluding the leaves of nodes of height 0)
}
\description{
This function counts the number of "practical" terminal nodes (nodes which are not leaves, but has 0 height to them are considered "terminal" nodes).
If the tree is standard, that would simply be the number of leaves (only the leaves will have height 0).
However, in cases where the tree has several nodes (before the leaves) with 0 height,
the count_terminal_nodes counts such nodes as terminal nodes
The function is recursive in that it either returns 1 if it reached a terminal node (either a leaf or a 0 height node),
else: it will count the number of terminal nodes in each of its sub-nodes, sum them up, and return them.
}
\examples{
# define dendrogram object to play with:
hc <- hclust(dist(USArrests[1:3, ]), "ave")
dend <- as.dendrogram(hc)
###
# Trivial case
count_terminal_nodes(dend) # 3 terminal nodes
length(labels(dend)) # 3 - the same number
plot(dend,
main = "This is considered a tree \n with THREE terminal nodes (leaves)"
)
###
# NON-Trivial case
str(dend)
attr(dend[[2]], "height") <- 0
count_terminal_nodes(dend) # 2 terminal nodes, why? see this plot:
plot(dend,
main = "This is considered a tree \n with TWO terminal nodes only"
)
# while we have 3 leaves, in practice we have only 2 terminal nodes
# (this is a feature, not a bug.)
}
|
