Exercise YB R assignment2