# NOT RUN {
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)) }
g <- linearpcfcross.inhom(chicago, "assault", "robbery", lamI, lamJ)
# }
# NOT RUN {
fit <- lppm(chicago, ~marks + x)
linearpcfcross.inhom(chicago, "assault", "robbery", fit, fit)
# }
Run the code above in your browser using DataLab