R code

R code