R-Programming Assignment 2 v1