Update ProgrammingAssignment2.R