## Not run:
# france.fit <- fdm(fr.mort,order=2)
# france.fcast <- forecast(france.fit,50,method="ets")
# france.sim <- simulate(france.fcast,nsim=100)
#
# france.fit2 <- coherentfdm(fr.sm)
# france.fcast2 <- forecast(france.fit2,50)
# france.sim2 <- simulate(france.fcast2,nsim=100)## End(Not run)
Run the code above in your browser using DataLab