Add 4 R scripts and 4 png images

Add 4 R scripts and 4 png images