# \donttest{
model_description_df <- data.frame(
"Depth" = rep(c(100, 500, 1000), 3),
"Width" = c(rep(50, 3), rep(100, 3), rep(200, 3))
)
n_models <- nrow(model_description_df)
cms <- vector("list", n_models)
for (ii in seq(1, n_models)) {
cms[[ii]] <- makeSimilarityMat(mcmc[[ii]]$allocations)
}
mean_abs_diff_df <- makeCMComparisonSummaryDF(cms, model_description_df)
# }
Run the code above in your browser using DataLab