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