Examples for 'maptools::elide-methods'

Methods for Function elide in Package 'maptools'

Aliases: elide-methods elide,SpatialPoints-method elide,SpatialPointsDataFrame-method elide,SpatialLines-method elide,SpatialLinesDataFrame-method elide,SpatialPolygons-method elide,SpatialPolygonsDataFrame-method elide

Keywords: methods spatial

### ** Examples

data(meuse)
coordinates(meuse) <- c("x", "y")
proj4string(meuse) <- CRS("+init=epsg:28992")
data(meuse.riv)
river_polygon <- Polygons(list(Polygon(meuse.riv)), ID="meuse")
rivers <- SpatialPolygons(list(river_polygon))
proj4string(rivers) <- CRS("+init=epsg:28992")
rivers1 <- elide(rivers, reflect=c(TRUE, TRUE), scale=TRUE)
meuse1 <- elide(meuse, bb=bbox(rivers), reflect=c(TRUE, TRUE), scale=TRUE)
opar <- par(mfrow=c(1,2))
plot(rivers, axes=TRUE)
plot(meuse, add=TRUE)
plot(rivers1, axes=TRUE)
plot(meuse1, add=TRUE)
plot of chunk example-maptools-elide-methods-1
par(opar)
meuse1 <- elide(meuse, shift=c(10000, -10000))
bbox(meuse)

     min    max
x 178605 181390
y 329714 333611

bbox(meuse1)

     min    max
x 188605 191390
y 319714 323611

rivers1 <- elide(rivers, shift=c(10000, -10000))
bbox(rivers)

       min      max
x 178304.0 182331.5
y 325698.5 337684.8

bbox(rivers1)

       min      max
x 188304.0 192331.5
y 315698.5 327684.8

meuse1 <- elide(meuse, rotate=-30, center=apply(bbox(meuse), 1, mean))
bbox(meuse)

     min    max
x 178605 181390
y 329714 333611

bbox(meuse1)

       min      max
x 179419.8 181278.9
y 329462.8 333890.2

plot(meuse1, axes=TRUE)
plot of chunk example-maptools-elide-methods-1
[Package maptools version 1.1-4 Index]