First version of Week 4 R Assignment