if (FALSE) {
if (requireNamespace("igraph", quietly = TRUE)) {
g <- igraph::make_graph("Zachary")
comm <- community_louvain(g)
# Test significance
sig <- cluster_significance(g, comm, n_random = 100, seed = 123)
print(sig)
# Configuration model (stricter test)
sig2 <- cluster_significance(g, comm, method = "configuration")
}
}
if (requireNamespace("igraph", quietly = TRUE)) {
g <- igraph::make_graph("Zachary")
comm <- community_louvain(g)
csig(g, comm, n_random = 20, seed = 1)
}
Run the code above in your browser using DataLab