Fixed pollutantmean.R