r assignment2