ExercisesWeek4.R