Finished R Week 2 Assignments