Dear friends,
  I used the shift() option in elide(maptools) function to shift the x/y
coordiates, but it seemed that it didn't change the coordinates.
#Programs used by me
library(sp)
library(foreign)
library(maptools)

data(meuse)  #in the help page
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")

#rivers
Slot "coords":
[176,] 182003.7  337678.6
Slot "bbox":
        min      max
r1 178304.0 182331.5
r2 325698.5 337684.8


rivers1 <- elide(rivers, shift=c(10000,-10000))  #,shift southeast to 10000,
but it seems unchanged
#rivers1
#the coordinates were the same as that of rivers
Slot "coords":
[176,] 182003.7  337678.6
Slot "bbox":
        min      max
r1 178304.0 182331.5
r2 325698.5 337684.8

 Q: Am i misusing the shift() option in elide(maptools) function? Where goes
wrong?
 Thanks.
-- 
With Kind Regards,

oooO:::::::::
(..):::::::::
:\.(:::Oooo::
::\_)::(..)::
:::::::)./:::
::::::(_/::::
:::::::::::::
[***********************************************************************]
Zhi Jie,Zhang ,PHD
Tel:+86-21-54237149
Dept. of Epidemiology,School of Public Health,Fudan University
Address:No. 138 Yi Xue Yuan Road,Shanghai,China
Postcode:200032
Email:epistat@gmail.com
Website: www.statABC.com
[***********************************************************************]
oooO:::::::::
(..):::::::::
:\.(:::Oooo::
::\_)::(..)::
:::::::)./:::
::::::(_/::::
:::::::::::::

	[[alternative HTML version deleted]]


