R assignment 1