

   SSiimmuullaatteess SSttrraauussss SSppaattiiaall PPooiinntt PPrroocceessss

        Strauss(n, c=0, r)

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

          n: number of points

          c: parameter `c' in [0, 1]. `c' = 0 corresponds to
             complete inhibition at distances up to `r'.

          r: inhibition distance

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

        Simulates Strauss spatial point process.

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

        list of vectors of x and y coordinates

   SSiiddee EEffffeeccttss::

        uses the random number generator

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

        `Psim', `SSI'

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

        towns <- ppinit("towns.dat")
        par(pty="s")
        plot(Kfn(towns, 10), type="b", xlab="distance", ylab="L(t)")
        lines(Kaver(10,25,Strauss(69,0.5,3.5)))

