Plots and R scripts for exploratory analysis 1