Exemple : discrimination fondée sur le genre

Fondements de l'inférence en R

Jo Hardin

Instructor

Image de banque

¹ Rosen B et Jerdee T. 1974. Influence des stéréotypes liés aux rôles sexués sur les décisions en dotation. Journal of Applied Psychology

Les données

	Promu	Non promu	Total
Homme	21	3	24
Femme	14	10	24
Total	35	13	48

Moins de femmes ont été promues

disc <- data.frame(
    promote = c(rep("promoted", 35), rep("not_promoted", 13)), 
    sex = c(rep("male", 21), rep("female", 14),
    rep("male", 3), rep("female", 10)))

disc %>%
    group_by(sex) %>%
    summarize(promoted_prop = mean(promote == "promoted"))

# A tibble: 2 × 2
     sex promoted_prop
  <fctr>         <dbl>
1 female     0.5833333
2   male     0.8750000

Hasard ?

Premier mélange

	Promu	Non promu
Homme	18	6
Femme	17	7

24 CV attribués aux hommes/femmes
35 promotions possibles

Hasard 1

Hasard ?

Hasard 2

Hasard ?

Hasard 3

Hasard ?

Hasard 4

Hasard ?

Hasard 5

Hasard ?

Hasard 6

Hasard ?

Hasard 7

Passons à la pratique !

Fondements de l'inférence en R