created pollutantmean.R
I read better, pollutant is 1, not a vector