Commit of 4 R scripts and corresponding png figs