# NOT RUN {
if(require(lme4)) {
# load a stored example having a posterior sample...
load(system.file("extdata", "cbpp.RData", package = "emmeans"))
brg <- qdrg(cbind(incidence, size-incidence) ~ size + period, data = lme4::cbpp,
mcmc = cbpp.list$post.beta, link = "logit")
summary(brg, type = "response")
}
if (require(biglm)) {
bigmod <- biglm(log(conc) ~ source + factor(percent), data = pigs)
rg <- qdrg(object = bigmod, data = pigs)
summary(emmeans(rg, "source"), type = "response")
}
# }
Run the code above in your browser using DataLab