# NOT RUN {
data(sf.crime.2012, envir = environment())
data(sf.polys, envir = environment())
sf.polys <- AddRanges(sf.polys)
XY <- FindPolygonInRanges(sf.polys, sf.crime.2012[1:1000,], verbose=0)
which(is.na(XY[,"census.block"]))
table(XY$rank)
# }
Run the code above in your browser using DataLab