Bayesians use the predictive for model checking. In this case there are four points would be highly unlikely from the model we ave suggested.
The posterior p-value of a point is the probability of a future observation being at least as extreme as that observed in the data.
In our case the Poisson likelihood did not have enough variability to describe four of the points.
> pnbinom(y[30], size=G, prob=H/(H+x[30]), lower.tail =FALSE ) [1] 0.0002309319 > 1-pnbinom(y[4], size=G, prob=H/(H+x[4]), lower.tail = FALSE) [1] 0.0007879166 > 1-pnbinom(y[31], size=G, prob=H/(H+x[31]), lower.tail = FALSE) [1] 0.008019882 > pnbinom(y[23], size=G, prob=H/(H+x[23]), lower.tail = TRUE) [1] 0.006570922