R script associated with Quiz 1
Data used for Week 1 Quiz