# NOT RUN {
# data
# note: all edges equal
Y1 <- MASS::mvrnorm(250, rep(0, 10), Sigma = diag(10))
Y2 <- MASS::mvrnorm(250, rep(0, 10), Sigma = diag(10))
# fit models
# note: atan penalty by default
# group 1
fit1 <- ggmncv(cor(Y1), n = nrow(Y1),
progress = FALSE)
# group 2
fit2 <- ggmncv(cor(Y2), n = nrow(Y2),
progress = FALSE)
# compare
compare_ggms <- compare_edges(fit1, fit2)
compare_ggms
# }
Run the code above in your browser using DataLab