This is the R script for the Project