Final submission

This contains the final R code for peer assignment