Create pollutmean.R