## Not run: ------------------------------------
#
# # Fit Mixed Graphical Model to Bootstrap Samples of the autism dataset
# rs_obj <- rs.mgm(data = autism_data$data,
# type = autism_data$type,
# lev = autism_data$lev,
# VAR = FALSE, # fit mgm model
# B = 10,
# N = nrow(autism_data$data), # for classical bootstrap
# replace=TRUE)
#
# # Summary of bootstrapped edge weights
# summary(rs_obj)
#
# # Plot bootstrapped edge weights using boxplots
# plot(rs_obj)
#
## ---------------------------------------------
Run the code above in your browser using DataLab