# NOT RUN {
X <- lansing
# Multitype point pattern --- trees marked by species
# }
# NOT RUN {
fit1 <- ppm(X, ~ marks, Poisson())
is.marked(fit1)
fit2 <- ppm(X, ~ 1, Poisson())
is.marked(fit2)
## test whether the model formula involves marks
"marks" %in% spatstat.utils::variablesinformula(formula(fit2))
# Unmarked point pattern
fit3 <- ppm(cells, ~ 1, Poisson())
is.marked(fit3)
# FALSE
# }
Run the code above in your browser using DataCamp Workspace