# Plot results for the example data - n_iter is too small for convergence
# Try increasing n_iter to see the values of the PSRF decrease
po <- list()
for (i in 1:3) {
set.seed(i)
po[[i]] <- PolyaUrnBivarDirichlet(
two_normals$c14_age,
two_normals$c14_sig,
intcal20,
n_iter=400,
show_progress = FALSE)
}
PlotGelmanRubinDiagnosticMultiChain(po)
Run the code above in your browser using DataLab