R Programming Assignment Week 2 done