# Remove additional burnin samples and recompute MPT summary
if (FALSE) {
# start later or thin (see ?window)
mcmc.subsamp <- window(fittedModel$runjags$mcmc, start = 3001, thin = 2)
new.mpt.summary <- summarizeMPT(mcmc.subsamp, fittedModel$mptInfo)
new.mpt.summary
}
Run the code above in your browser using DataLab