# NOT RUN {
if (require(rgdal, quietly=TRUE)) {
example(columbus, package="spData")
mixed <- lagsarlm(CRIME ~ HOVAL + INC, data=columbus, nb2listw(col.gal.nb),
type="mixed")
error <- errorsarlm(CRIME ~ HOVAL + INC, data=columbus, nb2listw(col.gal.nb))
LR.sarlm(mixed, error)
Hausman.test(error)
}
# }
Run the code above in your browser using DataLab