# NOT RUN {
if(require("coda")) {
# Create an emmGrid object from a system file
cbpp.rg <- do.call(emmobj,
readRDS(system.file("extdata", "cbpplist", package = "emmeans")))
hpd.summary(emmeans(cbpp.rg, "period"))
}
# }
Run the code above in your browser using DataLab