r project 1 solution rmd file