data(oldcol)
geary.test(COL.OLD$CRIME, nb2listw(COL.nb, style="W"))
geary.test(COL.OLD$CRIME, nb2listw(COL.nb, style="W"), randomisation=FALSE)
colold.lags <- nblag(COL.nb, 3)
geary.test(COL.OLD$CRIME, nb2listw(colold.lags[[2]], style="W"))
geary.test(COL.OLD$CRIME, nb2listw(colold.lags[[3]], style="W"),
alternative="greater")
Run the code above in your browser using DataLab