R Programming Assisgnment #2