# NOT RUN {
if (require("lme4")) {
  data(cbpp)
  cbpp$trials <- cbpp$size - cbpp$incidence
  m <- glm(cbind(incidence, trials) ~ period, data = cbpp, family = binomial)
  find_response(m, combine = TRUE)
  find_response(m, combine = FALSE)
}
# }
Run the code above in your browser using DataLab