R/Fitted.arima.R

In AnalyzeTS: Analyze Fuzzy Time Series

Fitted.arima <-
function (object) 
{
    if (prod(class(object)[1] != "Arima", class(object)[1] != "Arimax")) 
        stop("The 'object' must be a \"Arima\" or \"Arimax\"!")
    eval(object$call$x) - object$residuals
}