# NOT RUN {
library("data.table")
library("laeken")
data("eusilc")
eusilc <- data.table(eusilc)
dataset <- eusilc[, .(poph = sum(db090)), by = c("db040")]
dataset[, dom := "1"]
res <- prop_dom_optimal_allocation(H = "db040", Dom = "dom",
pop = "poph", R = NULL,
deff = NULL, se_max = 0.5,
prop = 0.5, min_size = 3,
step = 1, unit_level = FALSE,
dataset = dataset)
# }
Run the code above in your browser using DataLab