Coursera R Assignment2