Skip to content

how to dismiss points outside of my area of interest in a raster

3 messages · Manuel Spínola, Robert J. Hijmans

#
Manuel,

library(raster)
# Assuming you have matrix of points (or SpatialPoints*)
pt <- (cbind(runif(100), runif(100)) -0.5) * 500
spt <- SpatialPoints(pt)
# and a RasterLayer
r <- raster()

# you can do

e <- polygonFromExtent(r)
o <- overlay(e, spt)
o <- which(!is.na(o))
pts <- pt[o,]


# show that it worked
plot(pt)
r[] = 1
plot(r, add=TRUE, legend=FALSE)
points(pt, col='blue')
points(pts, col='red', pch=20)


Robert
On Thu, Nov 4, 2010 at 5:43 AM, Manuel Sp?nola <mspinola10 at gmail.com> wrote: