R-ProgrammingAssignment2