This is the R script file for the Assignment