Create Pollutantmean.R