Update pollutantmean.R

Now working