R code and images