modified PA_1.Rmd