if (FALSE) {
finpop <- transrate.hld(c("FIN_1981-85.txt","FIN_1986-90.txt","FIN_1991-95.txt"))
}
if (FALSE) {
nzpop <- transrate.hld(c("NZL_1980-82_Non-maori.txt","NZL_1985-87_Non-maori.txt",
"NZL_1980-82_Maori.txt","NZL_1985-87_Maori.txt"),
cut.year=c(1980,1985),race=rep(c("nonmaori","maori"),each=2))
}
Run the code above in your browser using DataLab