SSI(n, r)
x and
y coordinates
uses the region set by
ppinit or
ppregion.
will never return if
r is too large and it cannot place
n points.
towns <- ppinit("towns.dat")
par(pty = "s")
plot(Kfn(towns, 10), type = "b", xlab = "distance", ylab = "L(t)")
lines(Kaver(10, 25, SSI(69, 1.2)))