# NOT RUN {
seedsModel <- glmmPQL(cbind(r, n - r) ~ seed + extract,
random = diag(nrow(seeds)),
family = binomial,
data = seeds)
pred <- predict(seedsModel, level = 0)
predTerms <- predict(seedsModel, type = "terms")
all.equal(pred, rowSums(predTerms) + attr(predTerms, "constant"))
# }
Run the code above in your browser using DataLab