Nothing
#' Autocorrelation Plot
#'
#' Plots current vs lagged residuals along with quadrants dividing these
#' residuals about the value zero.
#'
#'
#' @param fit output from the function 'lm()'.
#' @param main the plot title.
#' @param \ldots extra parameters to be passed to the \code{plot} function.
#' @return Plots current vs lagged residuals along with quadrants dividing
#' these residuals about the value zero.
#' @keywords hplot
#' @examples
#'
#' data(airpass.df)
#' time = 1:144
#' airpass.fit = lm(passengers ~ time, data = airpass.df)
#' autocorPlot(airpass.fit)
#'
#' @export autocorPlot
#' @aliases autocor.plot
#' @note \code{autocor.plot} is deprecated inline with our new policy of removing periods from function names.
autocorPlot = autocor.plot = function(fit, main = "Current vs Lagged residuals", ...) {
current.res = fit$residuals[-1]
T = length(fit$residuals)
lagged.res = fit$residuals[-T]
plot(current.res ~ lagged.res, main = main, ...)
ab = lm(current.res ~ lagged.res)$coeff
## abline(ab[1],ab[2],lty=2)
abline(v = 0, lty = 3)
abline(h = 0, lty = 3)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.