# \donttest{
dwellings_sp <- dwellings
sp::coordinates(dwellings_sp) <- ~ x + y
tryCatch(
# does not work on some OS versions
sp::proj4string(dwellings_sp) <- "+init=epsg:28992"
)
# create a 1km grid
unemployed <- sdc_raster(dwellings_sp, dwellings_sp$unemployed, r = 1e3)
print(unemployed)
# retrieve the sensitive cells
is_sensitive(unemployed)
# }
Run the code above in your browser using DataLab