Adding R script for Week6 Assignment