data(cells)
X <- shift(cells, c(2,3))
plot(X)
# no discernible difference except coordinates are different
plot(cells, pch=16)
plot(shift(cells, c(0.03,0.03)), add=TRUE)
shift(cells, origin="mid")
Run the code above in your browser using DataLab