## Not run:
# sim.dir <- tempfile()
# pred <- pop.predict(countries="Ecuador", output.dir=sim.dir, wpp.year=2015,
# present.year=2015, keep.vital.events=TRUE, fixed.mx=TRUE, fixed.pasfr=TRUE)
# # get male mortality rates from 2020 for age groups 0-1, 1-4, 5-9, ...
# mxm <- pop.byage.table(pred, expression="MEC_M{age.index01(27)}", year=2020)[,1]
# print(LifeTableMx(mxm), digits=3)
# # female LT with first two age categories collapsed
# mxf <- pop.byage.table(pred, expression="MEC_F{age.index01(27)}", year=2020)[,1]
# print(LifeTableMx(mxf, sex="Female", include01=FALSE), digits=3)
# unlink(sim.dir, recursive=TRUE)## End(Not run)
Run the code above in your browser using DataLab