R Prog Assign 2 commit 2