F_function_-_distance_from_a_point_to_nearest_event.rsx

##[Example scripts]=group
##points=vector
##showplots
library("maptools")
library("spatstat")
ppp=as(as(points, "SpatialPoints"),"ppp")
plot(envelope(ppp, Fest, nsim=100))