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

## ----message = FALSE, include = FALSE-----------------------------------------------------------------------------------------------------------------------------------------------------------------
options(width = 200)