## ---- global_options, tidy = TRUE, echo=FALSE, message=FALSE-------------
library(knitr)
opts_chunk$set(tidy.opts=list(width.cutoff=60))