Four png files and the R Scripts that create them - km