R assignment week 2

Nathan Groom