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