## Not run:
# library(spdep)
# library(RColorBrewer)
# cook <- readShapePoly(system.file("maps/CookCensusTracts.shp",package="McSpatial"))
# # measure distance to Chicago city center
# lmat <- coordinates(cook)
# cook$longitude <- lmat[,1]
# cook$latitude <- lmat[,2]
# fit <- geodensity(cook$longitude, cook$latitude)
# cook$denshat <- fit$denshat
# brks <- seq(min(cook$denshat,na.rm=TRUE),max(cook$denshat,na.rm=TRUE),length=9)
# spplot(cook,"denshat",at=brks,col.regions=rev(brewer.pal(9,"RdBu")),
# main="Census Tract Densities")
# ## End(Not run)
Run the code above in your browser using DataLab