The R code for the assessment before the knitr section