added pollutantmean.R

PA 1 / part 1