eqInc: Equivalized disposable income
In laeken: Estimation of Indicators on Social Exclusion and Poverty

Description Usage Arguments Details Value Author(s) References See Also Examples

Compute the equivalized disposable income from household and personal income variables.

1	eqInc(hid, hplus, hminus, pplus, pminus, eqSS, year = NULL, data = NULL)

`hid`	if `data=NULL`, a vector containing the household ID. Otherwise a character string specifying the column of `data` that contains the household ID.
`hplus`	if `data=NULL`, a `data.frame` containing the household income components that have to be added. Otherwise a character vector specifying the columns of `data` that contain these income components.
`hminus`	if `data=NULL`, a `data.frame` containing the household income components that have to be subtracted. Otherwise a character vector specifying the columns of `data` that contain these income components.
`pplus`	if `data=NULL`, a `data.frame` containing the personal income components that have to be added. Otherwise a character vector specifying the columns of `data` that contain these income components.
`pminus`	if `data=NULL`, a `data.frame` containing the personal income components that have to be subtracted. Otherwise a character vector specifying the columns of `data` that contain these income components.
`eqSS`	if `data=NULL`, a vector containing the equivalized household size. Otherwise a character string specifying the column of `data` that contains the equivalized household size. See `eqSS` for more details.
`year`	if `data=NULL`, a vector containing the year of the survey. Otherwise a character string specifying the column of `data` that contains the year.
`data`	a `data.frame` containing EU-SILC survey data, or `NULL`.

All income components should already be imputed, otherwise NAs are simply removed before the calculations.

A numeric vector containing the equivalized disposable income for every individual in data.

Andreas Alfons

Working group on Statistics on Income and Living Conditions (2004) Common cross-sectional EU indicators based on EU-SILC; the gender pay gap. EU-SILC 131-rev/04, Eurostat.

eqSS

data(eusilc)

# compute a simplified version of the equivalized disposable income
# (not all income components are available in the synthetic data)
hplus <- c("hy040n", "hy050n", "hy070n", "hy080n", "hy090n", "hy110n")
hminus <- c("hy130n", "hy145n")
pplus <- c("py010n", "py050n", "py090n", "py100n",
    "py110n", "py120n", "py130n", "py140n")
eqIncome <- eqInc("db030", hplus, hminus,
    pplus, character(), "eqSS", data=eusilc)

# combine with household ID and equivalized household size
tmp <- cbind(eusilc[, c("db030", "eqSS")], eqIncome)

# show the first 8 rows
head(tmp, 8)