Running a subnational level multi-country model

Load your library

library(mcmsupply)

Get your data

cleaned_subnatdata <- get_data(national=FALSE)

Get the JAGS model inputs from the cleaned data

pkg_data <- get_modelinputs(startyear=1990, endyear=2025.5, nsegments=12, 
                            raw_data = cleaned_subnatdata)

Run JAGS model and get posterior point estimates with uncertainty

mod <- run_jags_model(jagsdata = pkg_data, jagsparams = NULL, 
                      n_iter = 80000, n_burnin = 10000, n_thin = 35)

Plot posterior point estimates with uncertainty

plots <- plot_estimates(jagsdata = pkg_data, model_output = mod)