# NOT RUN {
# data
Y <- GGMncv::ptsd[,1:10]
# correlations
S <- cor(Y, method = "spearman")
# fit model
fit <- GGMncv(x = S, n = nrow(Y),
penalty = "atan",
vip = TRUE,
vip_iter = 50)
# plot
plot(fit, size = 4)
# }
Run the code above in your browser using DataLab