R_Programming Assignment2