Update pollutantmean.R