R_week2 assignment