R Programming - Programming Assignment 2, Submission1