R_Programming Assignment 2