added pollutantmean.R skeliton