new file:   pollutantmean.R