compute_Pietra: Computation of Pietra index according to a functional form...

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

Description

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

Usage

compute_Pietra(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 Pietra 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_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_Pietra(function_form = "KP", par1 = 1, par2 = 1.450156)
0.2645622
Optim_LC %>% ungroup() %>%  rowwise() %>% mutate(Pietra = compute_Pietra(function_form, par1, par2, par3, par4)) %>% select(ID, function_form, Pietra)

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