Added the latest R code