powered by
rasterToPolygons(raster, fun=NULL, digits=12)
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