R code submission

R code submission