This contains my R excercise