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
# By domains
dat2 <- lingini(Y="eqIncome", id="IDd", weight="rb050", Dom=c("db040"), dataset=dati)
dat2$value
Run the code above in your browser using DataLab