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.
count_terminal_nodes(dend_node, ...)Arguments
Value
The number of terminal nodes (excluding the leaves of nodes of height 0)
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
#> [1] 3
length(labels(dend)) # 3 - the same number
#> [1] 3
plot(dend,
main = "This is considered a tree \n with THREE terminal nodes (leaves)"
)
###
# NON-Trivial case
str(dend)
#> --[dendrogram w/ 2 branches and 3 members at h = 54.8]
#> |--leaf "Arizona"
#> `--[dendrogram w/ 2 branches and 2 members at h = 37.2]
#> |--leaf "Alabama"
#> `--leaf "Alaska"
attr(dend[[2]], "height") <- 0
count_terminal_nodes(dend) # 2 terminal nodes, why? see this plot:
#> [1] 2
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.)