data(cells)
X <- shift(cells, c(2,3))
## Not run:
# plot(X)
# # no discernible difference except coordinates are different
# ## End(Not run)
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