# NOT RUN {
# Pearson's correlation only for CRAN checks
A <- TMFG(neoOpen, normal = FALSE)$A
comm <- igraph::walktrap.community(convert2igraph(abs(A)))$membership
result <- comm.eigen(A, comm)
# }
Run the code above in your browser using DataLab