R assignment2