Updated R codes

Pictures are now complete, I deleted the old pictures. 1 still does not
have a regression line