# NOT RUN {
#network
# Pearson's correlation only for CRAN checks
A <- TMFG(neoOpen, normal = FALSE)$A
#core items by network
coreBYnetwork <- core.items(A, by = "network")
#theoretical factors
comm <- c(rep(1,8),rep(2,8),rep(3,8),rep(4,8),rep(5,8),rep(6,8))
#core items by communities
coreBYcomm <- core.items(A, comm, by = "communities")
# }
Run the code above in your browser using DataLab