## Not run:
# require(addb)
# # Construct data objects
# mort.sm <- smooth.demogdata(set.upperage(extract.years(australia,1950:2002),100))
# fert.sm <- smooth.demogdata(extract.years(aus.fertility,1950:2002))
# aus.mig <- netmigration(set.upperage(australia,100),aus.fertility,mfratio=1.0545)
# # Fit models
# mort.fit <- coherentfdm(mort.sm)
# fert.fit <- fdm(fert.sm)
# mig.fit <- coherentfdm(aus.mig)
# # Produce forecasts
# mort.fcast <- forecast(mort.fit)
# fert.fcast <- forecast(fert.fit)
# mig.fcast <- forecast(mig.fit)
# # Simulate
# aus.sim <- pop.sim(mort.fcast,fert.fcast,mig.fcast,australia)## End(Not run)
Run the code above in your browser using DataLab