R_programmin week2 2,3 tasks