gets: R/sigma.arx.R

1
2
3
4
5
6
7
8
9
sigma.arx <-
function(object, ...)
{
  residsTrimmed <- na.trim(object$resids)
  RSS <- sum(residsTrimmed^2)
  nobs <- length(residsTrimmed)
  DFs <- length(coef.arx(object, spec="mean"))
  return( sqrt(RSS/(nobs-DFs)) )
}

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.