Coursera R programming Assingment 2