Create pollutantmean.R

R prog assignment 1.1