R Programming assignment 2