Rename Week 2-1 to pollutantmean.R