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

Description Usage Arguments Value References See Also Examples

View source: R/ineqQuantile.R

Description

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

Usage

1
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

1
2
3
4
5
6
7
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.