First commit of four R scripts and four png files for plots