data(amacrine)
# point patterns:
# shift all points simultaneously
X <- rtoro(amacrine)
# shift "on" and "off" points separately
X <- rtoro(amacrine, which=amacrine$marks)
# shift "on" points and leave "off" points fixed
X <- rtoro(amacrine, which="on")
# splitppp objects:
Y <- split(amacrine)
# shift "on" and "off" points separately
Z <- rtoro(Y)
# shift "on" points and leave "off" points fixed
Z <- rtoro(Y, "on")
# shift all points simultaneously
Z <- split(rtoro(superimpose(Y)))
Run the code above in your browser using DataLab