# NOT RUN {
# }
# NOT RUN {
# data
Y <- GGMncv::ptsd[,1:5]
# correlations
S <- cor(Y)
# fit model
fit <- ggmncv(R = S, n = nrow(Y), progress = FALSE)
# regression
coefs <- coef(fit)
coefs
# no regularization, resulting in OLS
# data
# note: scaled for lm()
Y <- scale(GGMncv::ptsd[,1:5])
# correlations
S <- cor(Y)
# fit model
# note: non reg
fit <- ggmncv(R = S, n = nrow(Y), progress = FALSE, lambda = 0)
# regression
coefs <- coef(fit)
# fit lm
fit_lm <- lm(Y[,1] ~ 0 + Y[,-1])
# ggmncv
coefs[1,]
# lm
as.numeric(coef(fit_lm))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab