R Programming-What I have done so far