Added support for forecast objects to be re-fit in forecast.ts

Allows usage like:
```R
fit <- forecast(mdeaths)
refit <- forecast(fdeaths, model=refit)
```