A correlation matrix between a list of trees.

Assumes the labels in the two trees fully match. If they do not please first use intersect_trees to have them matched.

cor.dendlist(
  dend,
  method = c("cophenetic", "baker", "common_nodes", "FM_index"),
  ...
)

Arguments

dend

a dendlist of trees

method

a character string indicating which correlation coefficient is to be computed. One of "cophenetic" (default), "baker", "common_nodes", or "FM_index". It can be abbreviated.

...

passed to cor functions.

Value

A correlation matrix between the different trees

See also

Examples

if (FALSE) { set.seed(23235) ss <- sample(1:150, 10) dend1 <- iris[ss, -5] %>% dist() %>% hclust("com") %>% as.dendrogram() dend2 <- iris[ss, -5] %>% dist() %>% hclust("single") %>% as.dendrogram() dend3 <- iris[ss, -5] %>% dist() %>% hclust("ave") %>% as.dendrogram() dend4 <- iris[ss, -5] %>% dist() %>% hclust("centroid") %>% as.dendrogram() # cutree(dend1) cors <- cor.dendlist(dendlist(d1 = dend1, d2 = dend2, d3 = dend3, d4 = dend4)) cors # a nice plot for them: library(corrplot) corrplot(cor.dendlist(dend1234), "pie", "lower") }