powered by
SSI(n, r)
x
y
r
n
ppinit
ppregion
Psim
Strauss
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)))
Run the code above in your browser using DataLab