ProgrammingAssignment2 for R programming