R_Programming Assignment 1