//[Example scripts]=group
//points=vector
//showplots
library("maptools")
library("spatstat")
ppp=as(as(points, "SpatialPoints"),"ppp")
qc=quadratcount(ppp)
plot(points)
plot(qc, add=TRUE)
>quadrat.test(ppp);
