Week2/Assignment/pollutantmean.R