## distributed completely at random
data(eusilc)
sam <- draw(eusilc[, 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
require(MASS)
mu <- rep(0, 2)
Sigma <- matrix(c(1, 0.5, 0.5, 1), 2, 2)
foo <- generate(size = 10, distribution = mvrnorm,
dots = list(mu = mu, Sigma = Sigma))
darc <- ContControl(target = "V2", epsilon = 0.2,
fun = function(x) x * 100, type = "DAR")
contaminate(foo, darc)
Run the code above in your browser using DataLab