Added ID out of bounds trap to pollutantmean.R for Assignment 1 Part 1