Added plots and R scripts to generate