R_Programming Assignment week3