For R ProgrammingAssignment2