Add the images and the R code