## ----echo=FALSE--------------------------------------------------------------- library(knitr) opts_chunk$set(message = FALSE, warning = FALSE, fig.height= 3, fig.width= 5)