compute_Gini: Computation of Gini index according to a functional form and...

In EnoraBelz/Inequality: Estimation of Inequality Measures from Quantile Data

Description

Computation of Gini index according to a functional form and its parameters

Usage

compute_Gini(function_form, par1, par2 = NA, par3 = NA, par4 = NA)

Arguments

function_form	string, functional form in "KP", "RGKO", "ARNOLD", "CHOTIKAPANICH", "SARABIA", "ORTEGA" and "ROHDE"
par1	numeric, parameter of the functional form
par2	numeric, parameter of the functional form
par3	numeric, parameter of the functional form
par4	numeric, parameter of the functional form

Value

The value of the Gini index according a functional form and its parameters

References

Belz (2019), Estimating Inequality Measures from Quantile Data https://halshs.archives-ouvertes.fr/halshs-02320110

See Also

compute_Pietra, compute_TH, compute_TL, compute_topshare

Examples

data("tabulated_income")
LC_tabulated_income = run_compute_LC(ID=tabulated_income$ID, p=tabulated_income$prop_cum_population, bound_min = tabulated_income$bound_min, bound_max = tabulated_income$bound_max, nb = tabulated_income$prop_population, method = "CondExp")
Optim_LC = run_optim_LC(ID = unique(LC_tabulated_income$ID),income_cum = LC_tabulated_income$income_cum, population_cum=LC_tabulated_income$population_cum, function_form = c("KP", "RGKO", "ARNOLD", "CHOTIKAPANICH", "SARABIA", "ORTEGA", "ROHDE"))
Optim_LC
compute_Gini(function_form = "KP", par1 = 1, par2 = 1.450156)
0.3488301
Optim_LC %>% ungroup() %>%  rowwise() %>% mutate(Gini = compute_Gini(function_form, par1, par2, par3, par4)) %>% select(ID, function_form, Gini)

EnoraBelz/Inequality documentation built on Oct. 30, 2019, 5:37 p.m.