R Prog Assignment2 submit