# NOT RUN {
require(spdep)
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")]
# res <- besf(y = y, x = x, coords=coords)
# res$b
# res$s
# res$e
# }
Run the code above in your browser using DataLab