data(eusilc)
## simple random sampling
srss <- setup(eusilc, size = 20, k = 3)
draw(eusilc[, c("id", "eqIncome")], srss, i = 1)
## group sampling
gss <- setup(eusilc, group = "hid", size = 10, k = 3)
draw(eusilc[, c("hid", "id", "eqIncome")], gss, i = 2)
## stratified sampling
stss <- setup(eusilc, design = "region",
size = c(2, 5, 5, 3, 4, 5, 3, 5, 2), k = 3)
draw(eusilc[, c("id", "region", "eqIncome")], stss, i = 3)
Run the code above in your browser using DataLab