# NOT RUN {
# Pearson's correlation only for CRAN checks
A <- TMFG(neoOpen, normal = FALSE)$A
# create a directed network
dir <- A * sample(c(0,1), size = length(A), replace = TRUE)
# undirect the directed network
undir <- un.direct(dir)
# }
Run the code above in your browser using DataLab