# NOT RUN {
# Pearson's correlation only for CRAN checks
A <- TMFG(neoOpen, normal = FALSE)$A
#theoretical communities
comm <- rep(1:8, each = 6)
gdiv <- diversity(A, comm = comm)
#walktrap communities
wdiv <- diversity(A, comm = "walktrap")
# }
Run the code above in your browser using DataLab