lam <- table(marks(chicago))/(summary(chicago)$totlength)
lamI <- function(x,y,const=lam[["assault"]]){ rep(const, length(x)) }
lamJ <- function(x,y,const=lam[["robbery"]]){ rep(const, length(x)) }
K <- linearKcross.inhom(chicago, "assault", "robbery", lamI, lamJ)
## Not run:
# fit <- lppm(chicago, ~marks + x)
# linearKcross.inhom(chicago, "assault", "robbery", fit, fit)
# ## End(Not run)
Run the code above in your browser using DataLab