Added generic support for refitting custom modelfunction

```R
b <- stlm(USAccDeaths, modelfunction = Arima)
c <- stlm(USAccDeaths, model=b)
```

Runs only when `model$modelfunction` accepts the `model` argument.

Enhancement #303