data(eusilc)
sam <- draw(eusilc[, c("id", "age", "eqIncome")], size = 25)
## missing completely at random
setNA(sam, target = "eqIncome", NArate = 0.2)
## missing at random
setNA(sam, target = "eqIncome", NArate = 0.2, aux = "age")
## missing not at random
setNA(sam, target = "eqIncome", NArate = 0.2, aux = "eqIncome")
Run the code above in your browser using DataLab