powered by
rasterToPolygons(x, fun=NULL, n=4, na.rm=TRUE, digits=12, dissolve=FALSE)
x
TRUE
NA
fun
fun=function(x){x==1}
fun=function(x){x>3 & x<6}< code="">6}<>
r <- raster(nrow=18, ncol=36) r[] <- runif(ncell(r)) * 10 r[r>8] <- NA pol <- rasterToPolygons(r, fun=function(x){x>6}) #plot(r) #plot(pol, add=T, col='red')
Run the code above in your browser using DataLab