set.seed(1014) options(digits = 3) knitr::opts_chunk$set( comment = "#>", collapse = TRUE )