#
# tests/rmhExpand.R
#
# test decisions about expansion of simulation window
#
# $Revision: 1.1 $ $Date: 2011/10/07 04:08:59 $
#
require(spatstat)
data(cells)
fit <- ppm(cells, ~x)
# check rmhmodel.ppm
mod <- rmhmodel(fit)
wsim <- as.rectangle(mod$trend)
if(!identical(wsim, as.owin(cells)))
stop("Expansion occurred improperly in rmhmodel.ppm")