Modify download.R
Modify plot1.R to aggregate NEI data