R week 5 assignment

Nathan Groom