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