Adding Week2 Assignment R script