R Programming Assign 2