pollutantmean function for RProgramming assignment #1
complete.r