# NOT RUN {
library("data.table")
library("laeken")
data("eusilc")
dataset1 <- data.table(IDd = paste0("V", 1 : nrow(eusilc)), eusilc)
# Full population
dat1 <- lingini2(Y = "eqIncome", id = "IDd",
weight = "rb050", dataset = dataset1)
dat1$value
# }
# NOT RUN {
# By domains
dat2 <- lingini2(Y = "eqIncome", id = "IDd",
weight = "rb050", Dom = c("db040"),
dataset = dataset1)
dat2$value
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab