Added R code to make plots.