R code and plots for task 1 and 2