# invent some data
X <- rpoispp(42)
# fit a model to it
fit <- ppm(X, ~x, Strauss(r=0.1))
# summarize the fitted model
summary(fit)
# `quick' option
summary(fit, quick=TRUE)
# save the full summary
s <- summary(fit)
# print it
print(s)
s
# extract stuff
names(s)
s$args$correction
s$name
s$trend$value
# multitype pattern
data(demopat)
fit <- ppm(demopat, ~marks, Poisson())
summary(fit)
# model with external covariates
fitX <- ppm(X, ~Z, covariates=list(Z=function(x,y){x+y}))
summary(fitX)
Run the code above in your browser using DataLab