R assigment2