# NOT RUN {
if(require("coda")) { # --- requires 'coda' to be installed
load(system.file("extdata", "cbpp.RData", package = "emmeans"))
cbpp.rg <- do.call(emmobj, cbpp.list)
hpd.summary(emmeans(cbpp.rg, "period"))
} # --- was tested only if coda is installed
# }
Run the code above in your browser using DataLab