compute_TH: Computation of Theil'H index according to a functional form...

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

Description

Computation of Theil'H index according to a functional form and its parameters

Usage

compute_TH(function_form, par1, par2, 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 Theil'H 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_Gini, compute_Pietra, 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_TH(function_form = "KP", par1 = 1, par2 = 1.450156)
0.1900282
Optim_LC %>% ungroup() %>%  rowwise() %>% mutate(TH = compute_TH(function_form, par1, par2, par3, par4)) %>% select(ID, function_form, TH)

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