Add finished R Programming assignment 3