X <- rpoispp(42)
# Envelope of K function under CSR
plot(envelope(X))
<testonly>plot(envelope(X, nsim=5))</testonly>
# Translation edge correction (this is also FASTER):
plot(envelope(X, correction="translate"))
<testonly>plot(envelope(X, nsim=5, correction="translate"))</testonly>
# Envelope of K function for simulations from model
data(cells)
fit <- ppm(cells, ~1, Strauss(0.05))
plot(envelope(fit))
<testonly>plot(envelope(fit, nsim=4))</testonly>
# Envelope of G function under CSR
plot(envelope(X, Gest))
<testonly>plot(envelope(X, Gest, nsim=5))</testonly>
# Use of `simulate'
plot(envelope(X, Gest, simulate=expression(runifpoint(42))))
plot(envelope(X, Gest, simulate=expression(rMaternI(100,0.02))))
<testonly>plot(envelope(X, Gest, simulate=expression(runifpoint(42)), nsim=5))
plot(envelope(X, Gest, simulate=expression(rMaternI(100, 0.02)), nsim=5))</testonly>
Run the code above in your browser using DataLab