Exemplu: discriminare de gen

Bazele inferenței în R

Jo Hardin

Instructor

Bank image.png

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

Datele

	Promovat	Nepromovat	Total
Masculin	21	3	24
Feminin	14	10	24
Total	35	13	48

Mai puține femei au fost promovate

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

Întâmplare aleatorie?

Prima amestecare

	Promovat	Nepromovat
Masculin	18	6
Feminin	17	7

24 CV-uri atribuite pentru masculin/feminin
35 promovări permise

Random chance 1.png

Întâmplare aleatorie?

Random chance 2.png

Întâmplare aleatorie?

Random chance 3.png

Întâmplare aleatorie?

Random chance 4.png

Întâmplare aleatorie?

Random chance 5.png

Întâmplare aleatorie?

Random chance 6.png

Întâmplare aleatorie?

Random chance 7.png

Să exersăm!

Bazele inferenței în R