Last chance! 50% off unlimited learning
Sale ends in
X <- psp(runif(20), runif(20), runif(20), runif(20), window=owin())
Y <- pointsOnLines(X, eps=0.05)
plot(X, main="")
plot(Y, add=TRUE, pch="+")
Run the code above in your browser using DataLab