Initial commit

R code and PNG files for 4 plots