Adding Week 3 Quiz R script