powered by
selfcrossing.psp(A)
"psp"
"ppp"
A
A crossing point occurs whenever one of the line segments in A intersects another line segment in A, at a nonzero angle of intersection.
crossing.psp
psp.object
ppp.object
a <- psp(runif(10), runif(10), runif(10), runif(10), window=owin()) plot(a, col="green", main="selfcrossing.psp") P <- selfcrossing.psp(a) plot(P, add=TRUE, col="red")
Run the code above in your browser using DataLab