ppinit(file)
file
| string giving file name |
The file should contain
the number of points
a header (ignored)
xl xu yl yu scale
x y (repeated n times)
x, y, xl, xu, yl, yu
ppregion to set the domain.
ppregion
towns <- ppinit("towns.dat")
par(pty="s")
plot(Kfn(towns, 10), type="b", xlab="distance", ylab="L(t)")