Add function pollutantmean.R