data(Helianthemum)
## Test asociation/repulsion between the fixed pattern of adult
## H. squamatum plants and the "variable" pattern of surviving and
## dead seedlings, with 2.5% and 97.5% envelopes of 999 random
## labellings.
cosa <- K012(Helianthemum, fijo="adultHS", i="deadpl", j="survpl",
r=seq(0,200,le=201), nsim=999, nrank=25, correction="isotropic")
plot(cosa$k01, sqrt(./pi)-r~r, col=c(3, 1, 3), lty=c(3, 1, 3), las=1,
ylab=expression(L[12]), xlim=c(0, 200),
main="adult HS vs. dead seedlings")
plot(cosa$k02, sqrt(./pi)-r~r, col=c(3, 1, 3), lty=c(3, 1, 3), las=1,
ylab=expression(L[12]), xlim=c(0, 200),
main="adult HS vs. surviving seedlings")
Run the code above in your browser using DataLab