Strauss(n, c=0, r)
c
in [0, 1].
c
= 0 corresponds to complete inhibition at
distances up to
r
.
Uses spatial birth-and-death process for 4
n
steps, or for 40
n
steps
starting from a binomial pattern on the first call from an other function.
Uses the region set by
ppinit
or
ppregion
.
towns <- ppinit("towns.dat") par(pty="s") plot(Kfn(towns, 10), type="b", xlab="distance", ylab="L(t)") lines(Kaver(10, 25, Strauss(69,0.5,3.5)))