if (FALSE) {
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)
}
Run the code above in your browser using DataLab