pollutantmean.R