# NOT RUN {
outdir <- tempfile()
dir.create(outdir)
sim.dir <- file.path(find.package("bayesPop"), "ex-data", "Pop")
pred <- get.pop.prediction(sim.dir=sim.dir, write.to.cache=FALSE)
# proportion of 65+ years old to the whole population
write.pop.projection.summary(pred, expression="PXXX[14:27] / PXXX", file.suffix="age65plus",
output.dir=outdir, include.observed=TRUE, digits=2)
# various measures
write.pop.projection.summary(pred, what=c("pop", "popsexage", "popsex"),
output.dir=outdir)
unlink(outdir, recursive=TRUE)
# }
Run the code above in your browser using DataLab