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