Started final for 343
Done with final besides some editing
Added in R code for question 2b
Done with final