Adding inital R code