# NOT RUN {
# data
Y <- GGMncv::ptsd[,1:10]
# correlations
S <- cor(Y, method = "spearman")
# fit model
# default: atan
fit <- ggmncv(R = S, n = nrow(Y), progress = FALSE)
# plot
plot(fit)
# lasso
fit <- ggmncv(R = S, n = nrow(Y), progress = FALSE,
penalty = "lasso")
# plot
plot(fit)
# }
Run the code above in your browser using DataLab