Example: gender discrimination

Foundations of Inference in 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

The data

	Promoted	Not promoted	Total
Male	21	3	24
Female	14	10	24
Total	35	13	48

Fewer women were promoted

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

Random chance?

First shuffle

	Promoted	Not promoted
Male	18	6
Female	17	7

24 resumes given for male/females
35 allowed promotions

Random chance 1.png

Random chance?

Random chance 2.png

Random chance?

Random chance 3.png

Random chance?

Random chance 4.png

Random chance?

Random chance 5.png

Random chance?

Random chance 6.png

Random chance?

Random chance 7.png

Let's practice!

Foundations of Inference in R