created R scripts and plots

created R scripts and plots