Adding pollutantmean.R