# NOT RUN {
# Toy example that runs relatively quickly
library(MASS)
p <- 5 # number of variables
data <- mvrnorm(n=100, mu=rep(0, p), Sigma = diag(p))
set.seed(1)
out <- lasso_ms(data = data, B=2)
# !!! NOTE: this is just for testing purposes; B should a lot higher (default = 50)
# }
# NOT RUN {
# Fit GGM to empirical PTSD data
set.seed(1)
out <- lasso_ms(data = ptsd_data)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab