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, decimal=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