added R scripts and plot images