added R code for project
update 1