X <- lansing
# Multitype point pattern --- trees marked by species
fit1 <- ppm(X, ~ marks, Poisson())
is.multitype(fit1)
# TRUE
fit2 <- ppm(X, ~ 1, Poisson())
is.multitype(fit2)
# TRUE
# Unmarked point pattern
fit3 <- ppm(cells, ~ 1, Poisson())
is.multitype(fit3)
# FALSE
Run the code above in your browser using DataLab