R markdown file for Peer Assessment 1