Adding a pollutantmean.R file

This creates the function "pollutantmean", which takes the arguments
directory, pollutant, and ID and returns the mean of the pollutant
levels