# NOT RUN {
if (require(rgdal, quietly=TRUE)) {
example(columbus)
col.listw <- nb2listw(col.gal.nb)
col.listw$neighbours[[1]]
col.listw$weights[[1]]
col.sn <- listw2sn(col.listw)
str(col.sn)
# }
# NOT RUN {
col.sp <- as.spam.listw(col.listw)
str(col.sp)
# }
# NOT RUN {
}
# }
Run the code above in your browser using DataLab