Nothing
durbinWatsonTest.cesEst <- function( model, ... ) {
if( is.null( model$grad ) ) {
stop( "the model object must have a component 'grad';",
" please re-estimate the model with argument 'returnGrad'",
" set to 'TRUE'" )
}
gMat <- model$grad
mCoef <- coef( model )
yDW <- residuals( model ) + gMat %*% mCoef
dwReg <- lm( yDW ~ gMat - 1 )
result <- durbinWatsonTest( dwReg, ... )
return( result )
}
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.