data(eusilc)
dati <- data.table(IDd = 1 : nrow(eusilc), eusilc)[1 : 3,]
# Full population
dat1 <- lingini(Y = "eqIncome", id = "IDd", weight = "rb050", dataset = dati)
dat1$value
## Not run:
# # By domains
# dat2 <- lingini(Y = "eqIncome", id = "IDd", weight = "rb050", Dom = c("db040"), dataset = dati)
# dat2$value## End(Not run)
Run the code above in your browser using DataLab