powered by
Psim(n)
x
y
ppinit
ppregion
SSI
Strauss
towns <- ppinit("towns.dat") par(pty="s") plot(Kfn(towns, 10), type="s", xlab="distance", ylab="L(t)") for(i in 1:10) lines(Kfn(Psim(69), 10))
Run the code above in your browser using DataLab