Added R markdown file for peer assessment 1