# NOT RUN {
out1 <- dcpo(demsup_data,
chime = FALSE,
chains = 1,
iter = 300) # 1 chain/300 iterations for example purposes only; use defaults
theta_results <- summarize_dcpo_results(dcpo_input = demsup_data,
dcpo_output = out1,
pars = "theta")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab