data(eusilc)
# calculate equivalized household size
eqSS <- eqSS("db030", "age", data=eusilc)
# combine with household ID and household size
tmp <- cbind(eusilc[, c("db030", "hsize")], eqSS)
# show the first 8 rows
head(tmp, 8)
Run the code above in your browser using DataLab