R week 6 assignment

Nathan Groom