# NOT RUN {
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)
# }
Run the code above in your browser using DataLab