Add the plots and R code