R Programming 2 Assingment local changes