Create pollutantmean.R