Implemented the posterior predictor for R