if (FALSE) {
# Generating multivariate normal data from a 'scale-free' graph
data.sim <- bdgraph.sim(n = 60, p = 7, graph = "scale-free", vis = TRUE)
ssgraph.obj <- ssgraph(data = data.sim)
plot(ssgraph.obj)
plot(ssgraph.obj, cut = 0.3)
}
Run the code above in your browser using DataLab