r <- matrix(c(1,2,2,1), nrow=2,ncol=2)
   MultiStrauss(radii=r)
   # prints a sensible description of itself
   r <- 0.03 * matrix(c(1,2,2,1), nrow=2,ncol=2)
   X <- amacrine
   <testonly>X <- X[ owin(c(0, 0.8), c(0, 1)) ]</testonly>
   ppm(X, ~1, MultiStrauss(, r))
   # fit the stationary multitype Strauss process to `amacrine'
   # Note the comma; needed since "types" is not specified.
   ppm(X, ~polynom(x,y,3), MultiStrauss(c("off","on"), r))
   # fit a nonstationary multitype Strauss process with log-cubic trendRun the code above in your browser using DataLab