# NOT RUN {
nimbleMCMCresults <- compareMCMCs(
modelInfo = list(
code = code,
data = data,
constants = constants,
inits = inits),
MCMCs = c('nimble', 'nimble_slice'),
summary = TRUE
)
jagsMCMCresults <- compareMCMCs(
modelInfo = list(
code = code,
data = data,
constants = constants,
inits = inits),
MCMCs = c('jags'),
summary = TRUE
)
combinedMCMCresults <- combine_MCMC_comparison_results(nimbleMCMCresults[['model1']],
jagsMCMCresults[['model1']],
name = 'combinedMCMCresults')
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace