R Prog Assgn:2