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