R Prog Asgmt 2