# NOT RUN {
if (require(rgdal, quietly=TRUE)) {
example(columbus, package="spData")
to.be.dropped <- c(31, 34, 36, 39, 42, 46)
pre <- nb2listw(col.gal.nb)
print(pre)
post <- subset(pre, !(1:length(col.gal.nb) %in% to.be.dropped))
print(post)
}
# }
Run the code above in your browser using DataLab