changed pollutantmean to an R file