if (FALSE) {
# add posterior predictive samples to fitted model (optional step)
fittedModel$postpred$freq.pred <-
posteriorPredictive(fittedModel, M = 1000)
# plot model fit
plotFit(fittedModel, stat = "mean")
}
Run the code above in your browser using DataLab