h <- matrix(c(1,2,2,1), nrow=2,ncol=2)
   MultiHard(hradii=h)
   # prints a sensible description of itself
   data(betacells)
   h <- 15.0 * matrix(c(NA,1,1,NA), nrow=2,ncol=2)
   ppm(betacells, ~1, MultiHard(,h))
   # fit the stationary multitype hardcore process to `betacells'
   # Note the comma; needed since "types" is not specified.Run the code above in your browser using DataLab