RProgramming Assignment 2