Calculates the FM_index Correlation for some k.
cor_FM_index(dend1, dend2, k, ...)
A correlation value between 0 to 1 (almost identical clusters for some k)
a dendrogram.
a dendrogram.
an integer (number of clusters to cut the tree)
not used.
FM_index, cor.dendlist, Bk
set.seed(23235)
ss <- sample(1:150, 10)
hc1 <- iris[ss, -5] %>%
dist() %>%
hclust("com")
hc2 <- iris[ss, -5] %>%
dist() %>%
hclust("single")
dend1 <- as.dendrogram(hc1)
dend2 <- as.dendrogram(hc2)
cor_FM_index(dend1, dend2, k = 2)
cor_FM_index(dend1, dend2, k = 3)
cor_FM_index(dend1, dend2, k = 4)
Run the code above in your browser using DataLab