Add getResponse method. about forecast HOT 2 CLOSED

getResponse <- function(object,...) UseMethod("getResponse")

getResponse.lm <- function(object,...) {
responsevar <- as.character(formula(object$model))[2]
ans <- model.frame(object$model)[,responsevar]
return(ans)
}

getResponse.Arima <- function(object,...) {

ans <- eval(parse(text = object$series))
return(ans)

from forecast.

Will appear in forecast v4.01

from forecast.