Initial commit of 4 R scripts and 4 png files.