implemented pollutanmean.R