# NOT RUN {
finpop <- transrate.hld(c("FIN_1981-85.txt","FIN_1986-90.txt","FIN_1991-95.txt"))
# }
# NOT RUN {
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