w <- vect("POLYGON ((0 -5, 10 0, 10 -10, 0 -5))")
is.valid(w)
w <- vect("POLYGON ((0 -5, 10 0, 10 -10, 4 -2, 0 -5))")
is.valid(w)
is.valid(w, TRUE)
plot(w)
points(cbind(4.54, -2.72), cex=2, col="red")
e <- ext(0, 1, 0, 1)
is.valid(e)
ee <- ext(0, 0, 0, 0)
is.valid(ee)
Run the code above in your browser using DataLab