Add my plots and R code