Modify plot1.R for more efficient loading