SC R Script for ProgrammingAssignment2