RProgramProgrammingAssignment2