part one function complete, pollutantmean.R