if (FALSE) {
library(HMDHFDplus)
# grab province codes (including All Canada)
provs <- getCHMDprovinces()
# grab all mltper_5x5
# and stick into long data.frame:
mltper <- do.call(rbind, lapply(provs, function(provID){
Dat <- readCHMDweb(provID = provID, item = "mltper_5x5", fixup = TRUE)
Dat$provID <- provID
Dat
}))
}
Run the code above in your browser using DataLab