data(pennLC)
geo <- pennLC$geo[,2:3]
geo <- latlong2grid(geo)
area.population <- tapply(pennLC$data$population, pennLC$data$county, sum)
pop.upper.bound <- 0.5
geo.info <- zones(geo, area.population, pop.upper.bound)
Run the code above in your browser using DataCamp Workspace