Return two trees after pruning them so that the only leaves left are the intersection of their labels.

intersect_trees(dend1, dend2, warn = dendextend_options("warn"), ...)

Arguments

dend1

tree object (dendrogram/hclust/phylo)

dend2

tree object (dendrogram/hclust/phylo)

warn

logical (default from dendextend_options("warn") is FALSE). Set if warning are to be issued, it is safer to keep this at TRUE, but for keeping the noise down, the default is FALSE. Should a warning be issued if there was a need to perform intersaction.

...

passed on

Value

A dendlist with two pruned trees

See also

Examples

hc <- hclust(dist(USArrests[1:5, ]), "ave") dend <- as.dendrogram(hc) labels(dend) <- 1:5 dend1 <- prune(dend, 1) dend2 <- prune(dend, 5) intersect_dend <- intersect_trees(dend1, dend2) layout(matrix(c(1, 1, 2, 3, 4, 5), 3, 2, byrow = TRUE)) plot(dend, main = "Original tree") plot(dend1, main = "Tree 1:\n original with label 1 pruned") plot(dend2, main = "Tree 2:\n original with label 2 pruned") plot(intersect_dend[[1]], main = "Tree 1 pruned with the labels that intersected with those of Tree 2" ) plot(intersect_dend[[2]], main = "Tree 2 pruned with the labels that intersected with those of Tree 1" )