R code

Added R code file