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