data(amacrine)
   Y <- split(amacrine)
   # random toroidal shift
   # shift "on" and "off" points separately
   X <- rshift(Y)
   # shift "on" points and leave "off" points fixed
   X <- rshift(Y, which="on")
   # maximum displacement distance 0.1 units
   X <- rshift(Y, radius=0.1)
   # shift with erosion
   X <- rshift(Y, radius=0.1, edge="erode")Run the code above in your browser using DataLab