First check in of all the existing R code