Adding R script for Week3 Assignment