# NOT RUN {
# data
Y <- GGMncv::ptsd[,1:5]
# fit model
fit <- ggmncv(cor(Y), n = nrow(Y),
progress = FALSE,
penalty = "lasso")
# statistical inference
inference(fit)
# alias
all.equal(inference(fit), significance_test(fit))
# }
Run the code above in your browser using DataLab