Assignment 5
Project R Sweave file