This function allows you to make ARCH Test for residuals
ARCH.Test(x, lags)
x
residual series name,
lags
set.seed(12345) x <- rnorm(1000) ARCH.Test(x,3)