//[Example scripts]=group
//points=vector
//out=output vector
library("spatstat")
library("maptools")
spatpoints = as(points,"SpatialPoints")
ripras=ripras(as(spatpoints,"ppp"))
polyg=as(ripras,"SpatialPolygons")
out = SpatialPolygonsDataFrame(polyg, data.frame(1))
