# \donttest{
library(spdep)
library(sp)
data(meuse)
sp::coordinates(meuse) <- ~x+y
W <- spdep::nb2mat(knn2nb(knearneigh(meuse, k=5)), style="W")
fit <- GEESAR(cadmium ~ dist + elev, family=poisson(), data=meuse, W=W)
summary_SAR(fit)
# }
Run the code above in your browser using DataLab