# Use a stored example having a posterior sample
# Model is based on the data in lme4::cbpp
post <- readRDS(system.file("extdata", "cbpplist", package = "emmeans"))$post.beta
rg2 <- qdrg(~ size + period, data = lme4::cbpp, mcmc = post, link = "logit")
summary(rg2, type = "response")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.