R Assignment --Week 4