compute_topshare: Computation of topshare according to a functional form and...

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

Description

Computation of topshare according to a functional form and its parameters

Usage

compute_topshare(p, function_form, par1, par2, par3 = NA, par4 = NA)

Arguments

p	numeric, value of the topshare
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 topshare 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_TH

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_topshare(p = 0.95, function_form = "KP", par1 = 1, par2 = 1.450156)
0.1164444
Optim_LC %>% ungroup() %>%  rowwise() %>% mutate(topshare95= compute_topshare(p=0.95, function_form, par1, par2, par3, par4)) %>% select(ID, function_form, topshare95)

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