Adding Week3 Assignment R script