# NOT RUN {
require(spdep);require(Matrix)
data(boston)
y <- boston.c[, "CMEDV" ]
x <- boston.c[,c("CRIM","ZN","INDUS", "CHAS", "NOX","RM", "AGE",
"DIS" ,"RAD", "TAX", "PTRATIO", "B", "LSTAT")]
xgroup<- boston.c[,"TOWN"]
coords<- boston.c[,c("LAT","LON")]
meig <- meigen(coords=coords)
res <- resf(y = y, x = x, xgroup = xgroup, meig = meig)
res$b
res$b_g
res$s
res$s_g
res$e
#########Fast approximation
meig_f <- meigen_f(coords=coords)
res2 <- resf(y=y,x=x, xgroup = xgroup,meig=meig_f)
# }
Run the code above in your browser using DataLab