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