fr.sm <- smooth.demogdata(extract.years(fr.mort,1950:2006))
fr.fit <- fdm(fr.sm,series="male")
fr.fcast <- forecast(fr.fit)
models(fr.fcast)
fr.fit <- coherentfdm(fr.sm)
fr.fcast <- forecast(fr.fit)
models(fr.fcast,select=1:3)Run the code above in your browser using DataLab