X <- rescale(amacrine)
I <- (marks(X) == "on")
J <- (marks(X) == "off")
if(interactive() && require(spatstat.model)) {
## how to do it normally
mod <- ppm(X ~ marks * x)
lam <- fitted(mod, dataonly=TRUE)
lmin <- min(predict(mod)[["off"]]) * 0.9
dd <- NULL
} else {
## for package testing
lam <- intensity(X)[as.integer(marks(X))]
lmin <- intensity(X)[2] * 0.9
dd <- 32
}
JM <- Jmulti.inhom(X, I, J, lambda=lam, lambdamin=lmin, dimyx=dd)
Run the code above in your browser using DataLab