RScript for Programming Assignment 2