Exempel: könsdiskriminering

Grundläggande inferens i R

Jo Hardin

Instructor

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

CV:n.png

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

Data

	Befordrad	Ej befordrad	Totalt
Man	21	3	24
Kvinna	14	10	24
Totalt	35	13	48

Färre kvinnor befordrades

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

Slumpen?

Första omstockning

	Befordrad	Ej befordrad
Man	18	6
Kvinna	17	7

24 CV:n tilldelade per kön
35 möjliga befordringar

Slumpen 1.png

Slumpen?

Slumpen 2.png

Slumpen?

Slumpen 3.png

Slumpen?

Slumpen 4.png

Slumpen?

Slumpen 5.png

Slumpen?

Slumpen 6.png

Slumpen?

Slumpen 7.png

Nu kör vi en övning!

Grundläggande inferens i R