Aviso: Se está a ler esta mensagem, provavelmente, o browser que utiliza não é compatível com os "standards" recomendados pela W3C. Sugerimos vivamente que actualize o seu browser para ter uma melhor experiência de utilização deste "website". Mais informações em webstandards.org.

Warning: If you are reading this message, probably, your browser is not compliant with the standards recommended by the W3C. We suggest that you upgrade your browser to enjoy a better user experience of this website. More informations on webstandards.org.

Script R para testar função fasterize (Link)

Script para testar fasterize (Link)

# Test fasterize.

library(sf)
library(raster)
library(fasterize)

# create a simple sf object (polygon)

mypol<-st_polygon(list(rbind(c(0,0),c(2,0),c(1.4,0.5),c(9,8.8),c(9.6,9.5),c(9,10),c(0,10),c(0,0))))
mysfc<-st_sfc(mypol)
mysf<-st_sf(new=1,mysfc)

# create a simple raster
r<-raster(resolution=1,xmn=0,xmx=10,ymn=0,ymx=10)
values(r)<-0

# fasterize mysf over r
plot(fasterize(mysf,raster=r,field="new"),col=rgb(0,1,0,0.5))
plot(mysf,col=rgb(0,0,1,0.5),add=TRUE)
points(1.5,.5)
points(9.5,9.5)
for (i in 0:10) abline(v=i)
for (i in 0:10) abline(h=i)

# only pixels which center is contained in mysf are selected.