Average K-functions from Simulations
Forms the average of a series of (usually simulated) K-functions.

Syntax:
	Kaver(fs, nsim, ...)
Input
 fs    full scale for K-fn
 nsim  number of simulations
 ...   arguments to simulate one point process object

Output
list with components `x' and `y' of the average K-fn on L-scale.

See Also
`Kfn', `Kenvl'

Examples
towns <- ppinit("towns.dat")
par(pty="s")
plot(Kfn(towns, 40), type="b")
plot(Kfn(towns, 10), type="b", xlab="distance", ylab="L(t)")
for(i in 1:10) lines(Kfn(Psim(69), 10))
lims <- Kenvl(10,100,Psim(69))
lines(lims$x,lims$l, lty=2)
lines(lims$x,lims$u, lty=2)
lines(Kaver(10,25,Strauss(69,0.5,3.5)))