R assignment week 8

Nathan Groom 7/27/14