Created R code and output for peer assignment 1