plots and R files for peer assessment 1