R/residuals.arx.R

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
residuals.arx <-
function(object, std=FALSE, ...)
{
  ##determine spec:
  if(is.null(std)){
    std <- switch(as.character(object$call)[1],
      arx=FALSE, getsm=FALSE, getsv=TRUE)
  }

  if(std){
    result <- object$resids.std
  }else{
    result <- object$resids
  }
  return(result)
}

Questions? Problems? Suggestions? or email at ian@mutexlabs.com.

Please suggest features or report bugs with the GitHub issue tracker.

All documentation is copyright its authors; we didn't write any of that.