statAfrikR (version 0.2.1)

calcul_fgt: Calcul des indices de pauvrete FGT

Description

Calcule les indices Foster-Greer-Thorbecke (FGT0, FGT1, FGT2) avec prise en compte optionnelle du plan de sondage complexe. Les trois indices mesurent respectivement l'incidence, la profondeur et la severite de la pauvrete monetaire.

Usage

calcul_fgt(
  data,
  var_depense,
  seuil_pauvrete,
  poids = NULL,
  strate = NULL,
  grappe = NULL,
  sous_groupes = NULL,
  alpha = c(0, 1, 2),
  ic = TRUE,
  na.rm = TRUE
)

Value

Un objet de classe saf_fgt

Arguments

data

data.frame, tibble ou objet svydesign -- Donnees source

var_depense

character -- Nom de la variable de depenses ou revenus par tete (en monnaie locale, strictement positive)

seuil_pauvrete

numeric -- Seuil de pauvrete en monnaie locale. Meme unite que var_depense

poids

character ou NULL -- Nom de la variable de ponderation. Ignore si data est un svydesign. Defaut : NULL

strate

character ou NULL -- Variable de stratification. Defaut : NULL

grappe

character ou NULL -- Variable d'identifiant de grappe. Defaut : NULL

sous_groupes

character ou NULL -- Variables de decomposition (region, milieu, sexe). Defaut : NULL

alpha

numeric -- Parametre de sensibilite : 0, 1, 2 ou vecteur. Defaut : c(0, 1, 2)

ic

logical -- Calculer les IC 95%. Defaut : TRUE. Methode : Wilson (echantillon simple) ou Taylor via creer_design() pour plans complexes. Pour publications officielles INS, privilegier la variance de Taylor : calcul_fgt(creer_design(donnees, ...), ...). Defaut : TRUE

na.rm

logical -- Exclure les valeurs manquantes. Defaut : TRUE

References

Foster, J., Greer, J., & Thorbecke, E. (1984). A class of decomposable poverty measures. Econometrica, 52(3), 761-766. tools:::Rd_expr_doi("10.2307/1913475")

Examples

set.seed(42)
menages <- data.frame(
  depense_pc = c(rexp(70, rate = 1/150000), rexp(30, rate = 1/400000)),
  poids      = runif(100, 0.8, 1.2),
  region     = sample(c("Bangui", "Ombella", "Lobaye"), 100, TRUE),
  milieu     = sample(c("urbain", "rural"), 100, TRUE, prob = c(0.4, 0.6))
)
fgt <- calcul_fgt(menages, var_depense = "depense_pc",
                  seuil_pauvrete = 220000, poids = "poids")
print(fgt)