fr.sm <- smooth.demogdata(extract.years(fr.mort,1950:2006))
fr.fit <- coherentfdm(fr.sm)
fr.fcast <- forecast(fr.fit)
plot(fr.fcast$male)
plot(fr.fcast$ratio$male, plot.type='component', components=3)
models(fr.fcast)Run the code above in your browser using DataLab