Initial commit
R code update