# NOT RUN {
  data(cells)
  X <- shift(cells, c(2,3))
  
# }
# NOT RUN {
  plot(X)
  # no discernible difference except coordinates are different
  
# }
# 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