## -----------------------------------------------------------------------------
#| label: setup
#| include: false
old_options <- options(digits = 3)


## ----cleanup, include = FALSE-------------------------------------------------
options(old_options)