Create pollutantmean.r