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

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