R scripts and Plots