Feb 13 commit

Updated R code