RProgram-ProgrammingAssignment2