r <- matrix(c(1,2,2,1), nrow=2,ncol=2)
   MultiStrauss(r)
   # prints a sensible description of itself
   r <- 0.03 * matrix(c(1,2,2,1), nrow=2,ncol=2)
   X <- amacrine
   
   ppm(X ~1, MultiStrauss(r))
   # fit the stationary multitype Strauss process to `amacrine'
   ## Not run: 
#    ppm(X ~polynom(x,y,3), MultiStrauss(r, c("off","on")))
#    # fit a nonstationary multitype Strauss process with log-cubic trend
#    ## End(Not run)
Run the code above in your browser using DataLab