## Data object "schools.sim" generated from the examples
## in the bugs function of the R2WinBUGS package.
outmcmc <- as.mcmc(schools.sim)
## Gelman Rubin diagnostics
coda:::gelman.diag(outmcmc)
coda:::mcmc.plot(outmcmc)Run the code above in your browser using DataLab