All 4 R scripts and plots