R Programming Week 4