complete.R works; pollutantmean.R works but could be better
improved pollutantmean.R