# \donttest{
library(sdcSpatial)
library(raster)
data("enterprises")
production <- sdc_raster(enterprises, "production", min_count = 10)
print(production)
# show the average production per cell
plot(production, "mean")
production$min_count <- 2 # adjust norm for sdc
plot(production)
production_safe <- remove_sensitive(production)
plot(production_safe)
# }
Run the code above in your browser using DataLab