Relocated my R code to PA1_template.Rmd