R Prog Assignment2