Adding Week3 Quiz R script