R Programming Week 4 Assignment done