First version pollutemean.R