if (FALSE) {
library(HMDHFDplus)
# grab prefecture codes (including All Japan)
prefectures <- getJMDprefectures()
# grab all mltper_5x5
# and stick into long data.frame:
mltper <- do.call(rbind, lapply(prefectures, function(prefID){
Dat <- readJMDweb(prefID = prefID, item = "mltper_5x5", fixup = TRUE)
Dat$PrefID <- prefID
Dat
}))
}
Run the code above in your browser using DataLab