added R scripts and the png files