set.seed(1)
mat <- matrix(runif(25), 5, 5,
dimnames = list(LETTERS[1:5], LETTERS[1:5]))
diag(mat) <- 0
overlay_communities(mat, list(g1 = c("A","B"), g2 = c("C","D","E")))
comm <- cograph::communities(regulation_net, method = "infomap")
overlay_communities(regulation_net, comm)
Run the code above in your browser using DataLab