bgtest
performs the Breusch-Godfrey test for higher-order
serial correlation.
bgtest(formula, order = 1, order.by = NULL, type = c("Chisq", "F"), data = list(), fill = 0)
"lm"
object).z
or a formula with a single explanatory
variable like ~ z
. The observations in the model
are ordered by the size of z
. If set to NULL
(the
default) the observations are assumed to be ordered (e.g., a
time series)."Chisq"
for the Chi-squared test statistic or
"F"
for the F test statistic.bgtest
is called from.0
but can also be set to NA
."bgtest"
inheriting from "htest"
containing the
following components:
parameter
.
If type
is set to "F"
the function returns
a finite sample version of the test statistic, employing an $F$
distribution with degrees of freedom as given in parameter
. By default, the starting values for the lagged residuals in the auxiliary
regression are chosen to be 0 (as in Godfrey 1978) but could also be
set to NA
to omit them.
bgtest
also returns the coefficients and estimated covariance
matrix from the auxiliary regression that includes the lagged residuals.
Hence, coeftest
can be used to inspect the results. (Note,
however, that standard theory does not always apply to the standard errors
and t-statistics in this regression.)
Godfrey, L.G. (1978): `Testing Against General Autoregressive and Moving Average Error Models when the Regressors Include Lagged Dependent Variables', Econometrica, 46, 1293-1302.
Breusch, T.S. (1979): `Testing for Autocorrelation in Dynamic Linear Models', Australian Economic Papers, 17, 334-355.
dwtest
## Generate a stationary and an AR(1) series
x <- rep(c(1, -1), 50)
y1 <- 1 + x + rnorm(100)
## Perform Breusch-Godfrey test for first-order serial correlation:
bgtest(y1 ~ x)
## or for fourth-order serial correlation
bgtest(y1 ~ x, order = 4)
## Compare with Durbin-Watson test results:
dwtest(y1 ~ x)
y2 <- filter(y1, 0.5, method = "recursive")
bgtest(y2 ~ x)
bg4 <- bgtest(y2 ~ x, order = 4)
bg4
coeftest(bg4)
Run the code above in your browser using DataLab