# NOT RUN {
A <- TMFG(neoOpen)$A
comm <- igraph::walktrap.community(convert2igraph(abs(A)))$membership
#Strength
result <- comm.str(A, comm)
#Degree
result <- comm.str(A, comm, weighted = FALSE)
# }
Run the code above in your browser using DataLab