R assignment week 5

R assignment week 5
-Nathan Groom