# NOT RUN {
## Obtain some (high-dimensional) data
p = 25
n = 10
set.seed(333)
X = matrix(rnorm(n*p), nrow = n, ncol = p)
colnames(X)[1:25] = letters[1:25]
Cx <- covML(X)
## Obtain sparsified partial correlation matrix
Pridge <- ridgeP(Cx, 10, type = "Alt")
PCsparse <- sparsify(Pridge , threshold = "top")$sparseParCor
## Represent the graph and calculate GGM network statistics
Ugraph(PCsparse, "fancy")
# }
# NOT RUN {
GGMnetworkStats(PCsparse)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab