# NOT RUN {
## distributed completely at random
data(eusilcP)
sam <- draw(eusilcP[, c("id", "eqIncome")], size = 20)
dcarc <- ContControl(target = "eqIncome", epsilon = 0.05,
dots = list(mean = 5e+05, sd = 10000), type = "DCAR")
contaminate(sam, dcarc)
## distributed at random
foo <- generate(size = 10, distribution = rnorm,
dots = list(mean = 0, sd = 2))
darc <- ContControl(target = "V1", epsilon = 0.2,
fun = function(x) x * 100, type = "DAR")
contaminate(foo, darc)
# }
Run the code above in your browser using DataLab