My update R file for Peer Assignment 2