r.med.sub {affluenceIndex}

Average affluence gap in subpopulation

Description

Computes the average affluence gap in subpopulation.

Usage

r.med.sub(x.sub, x, weight.sub, weight, k)

Arguments

x

income vector of subpopulation

x.sub

income vector of population

weight.sub

weight vector of subpopulation

weight

weight vector of population

k

multiple of the median income

Value

gap

the gap value

Author(s)

Alicja Wolny-Dominiak

References

Medeiros M. (2006) The rich and the poor: the construction of an affluence line from the poverty line. Social Indicators Research, 78, pp. 1-18.

See Also

r.med

Examples

data(affluence)
affluence$weight <- rep(1, nrow(affluence))
aff.sub <- subset(affluence, education == 2)
r.med.sub(aff.sub$income, affluence$income, aff.sub$weight, affluence$weight, 2)