## Not run:
# 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)## End(Not run)Run the code above in your browser using DataLab