

   CCoommppuuttee EEnnvveellooppee aanndd AAvveerraaggee ooff SSiimmuullaattiioonnss ooff KK--ffnnss

        Kenvl(fs, nsim, ...)

   AArrgguummeennttss::

         fs: full scale for K-fn

       nsim: number of simulations

        ...: arguments to produce one simulation

   DDeessccrriippttiioonn::

        Computes envelope (upper and lower limits) and average
        of simulations of K-fns

   VVaalluuee::

        list with components

          x: distances

      lower: min of K-fns

      upper: max of K-fns

       aver: average of K-fns

   SSeeee AAllssoo::

        `Kfn', `Kaver'

   EExxaammpplleess::

        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, col="green")
        lines(lims$x,lims$u, lty=2, col="green")
        lines(Kaver(10,25,Strauss(69,0.5,3.5)), col="red")

