if (FALSE) {
sim.dir <- tempfile()
# Run pop.predict with storing vital events
pred <- pop.predict(countries=c("Germany", "France"), nr.traj=3,
keep.vital.events=TRUE, output.dir=sim.dir)
# plot the mean age of childbearing
pop.trajectories.plot(pred, expression=mac.expression("FR"), cex.main = 0.7)
unlink(sim.dir, recursive=TRUE)}
Run the code above in your browser using DataLab