completed pollutantmean.R