Update pollutemean.R

Change this line  mondata <- numeric(idval) TO mondata <- vector()