## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>", eval = FALSE)

## -----------------------------------------------------------------------------
# vcov(fit, adjusted = TRUE)    # corrected (multiplicative, cluster meat)
# vcov(fit, adjusted = FALSE)   # naive posterior covariance
# confint(fit, adjusted = TRUE)