# This provides the code that generated this set originally using
# the now-deprecated 'NMMAPSlite' package, and is included here for historical
# reference.
#
# library("NMMAPSlite")
# initDB() # ** this creates a directory for a data archive
# chic <- readCity("chic", collapseAge=TRUE)
# chic <- chic[, c("date", "death", "time", "tmpd", "dptp", "dow", "pm10tmean")]
# mask <- rep(FALSE, length(chic[, "pm10tmean"]))
# mask[!is.na(chic[, "pm10tmean"])] <- TRUE
# chic <- cbind(chic, mask)
# save(chic, file="chicagoNMMAPS.RData")
Run the code above in your browser using DataLab