Displaying 1 result from an estimated 1 matches for "xymin".
Did you mean:
ymin
2006 Nov 30
2
*** caught segfault *** error
...ength(districts.shp$shp$shp)
> keys <- districts.shp$dbf$dbf$DISTRICT_2
> vertices <- list()
> for(i in 1:ndistricts){
+ vertices[[i]] <- districts.shp$shp$shp[[i]]$points
+ }
>
> districts.map <- list(codigo=keys, vertices=vertices)#,
nombre=wardnames)
>
> xymin <- apply(t(sapply(districts.map$vertices, apply, 2, min)),
2, min)
> xymax <- apply(t(sapply(districts.map$vertices, apply, 2, max)),
2, max)
> corners <- expand.grid(xymin, xymax)
>
> # Plotting the corners and then adding polygons one by one.
> par(pty="s&quo...