added wk2 materials and working pollutantmean.R