R Prog Assign 2 commit 1