Updated 1a Rmd