mod0 <- ppm(swedishpines ~1)
modx <- ppm(swedishpines ~x)
anova(mod0, modx, test="Chi")
modxy <- ppm(swedishpines ~x + y)
anova(modxy, test="Chi")
modP <- ppm(swedishpines ~1, rbord=9)
modS <- ppm(swedishpines ~1, Strauss(9))
anova(modP, modS, test="Chi")
Run the code above in your browser using DataCamp Workspace