Fitted

```
set.seed(7)
bts <- ts(5 + matrix(sort(rnorm(400)), ncol = 4, nrow = 100))
y <- hts(bts, g = c(rep(1, 2), rep(2, 2)))
ally <- allts(y)
fore <- forecast(y, 8, method = "bu", fmethod = "ets")
fore$fitted
```
Fitted values can be accessed by using "object$fitted".

### ToDo
These fitted values are only for the base forecasts, not for the revised ones.
I have to add more lines to the forecast methods like "bu".