add pollutantmean.R prototype