Esempio: discriminazione di genere

Fondamenti di inferenza in R

Jo Hardin

Instructor

Immagine banca.png

¹ Rosen B e Jerdee T. 1974. Influence of sex role stereotypes on personnel decisions. Journal of Applied Psychology

I dati

	Promossi	Non promossi	Totale
Uomini	21	3	24
Donne	14	10	24
Totale	35	13	48

Meno donne promosse

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

Caso o bias?

Prima mescolata

	Promossi	Non promossi
Uomini	18	6
Donne	17	7

24 CV assegnati a uomini/donne
35 promozioni disponibili

Caso casuale 1.png

Caso o bias?

Caso casuale 2.png

Caso o bias?

Caso casuale 3.png

Caso o bias?

Caso casuale 4.png

Caso o bias?

Caso casuale 5.png

Caso o bias?

Caso casuale 6.png

Caso o bias?

Caso casuale 7.png

Ayo berlatih!

Fondamenti di inferenza in R