# \donttest{
library(raster)
unemployed <- sdc_raster(dwellings[1:2], dwellings$unemployed, r=200)
# plot the normally rastered data
plot(unemployed, zlim=c(0,1))
plot_sensitive(unemployed)
unemployed_safe <- remove_sensitive(unemployed, risk_type="discrete")
plot_sensitive(unemployed_safe, zlim=c(0,1))
print(unemployed)
unemployed$value
# }
Run the code above in your browser using DataLab