# NOT RUN {
# Pearson's correlation only for CRAN checks
A <- TMFG(neoOpen, normal = FALSE)$A
# }
# NOT RUN {
# Better to use polychoric correlations with this dataset
ega.glasso <- EGAnet::EGA(neoOpen)
result <- node.multidimensional(A = ega.glasso$network, comm = ega.glasso$wc, plot = FALSE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab