if (FALSE) {
corr_mat <- matrix(
data = c(1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1),
nrow = 4,
dimnames = list(
c("a", "b", "c", "d"),
c("a", "b", "c", "d")
)
)
corr_mat
get_groups_from_clusters(cluster_corr_mat(corr_mat))
}
Run the code above in your browser using DataLab