if (FALSE) {
# Fit initial model
fit_aut <- mgm(data = as.matrix(autism_data$data),
type = autism_data$type,
level = autism_data$lev,
k = 2)
# Fit bootstrapped models
res_aut <- resample(object = fit_aut,
data = as.matrix(autism_data$data),
nB = 10) # should be more in real applications
# Plot Summary
plotRes(object = res_aut,
quantiles = c(.05, .95),
labels = NULL,
axis.ticks = c(-.25, 0, .25, .5, .75))
}
Run the code above in your browser using DataLab