pollutantmean.r