Complete pollutantmean.R