## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)
backup_options <- options()
options(width = 1000)
set.seed(1991)


## ----eval = TRUE, echo=FALSE, out.width = "600px", fig.align = "center"-------
knitr::include_graphics("UCB.png")


## ----revert_options, include=FALSE--------------------------------------------
options(backup_options)