Screenshot generated R code.