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? Tweet to @rdrrHQian@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.