Put R code and plots