powered by
Kfn(pp, fs, k=100)
x
y
fs
k
ppinit
ppregion
Kaver
Kenvl
towns <- ppinit("towns.dat") par(pty="s") plot(Kfn(towns, 10), type="s", xlab="distance", ylab="L(t)")
Run the code above in your browser using DataLab