Project R code

Download and run this code in an R environment