R Programming assignment 2 done