Przykład: dyskryminacja ze względu na płeć

Podstawy wnioskowania statystycznego w R

Jo Hardin

Instructor

Obraz banku.png

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

Dane

	Awansowano	Nie awansowano	Łącznie
Mężczyźni	21	3	24
Kobiety	14	10	24
Łącznie	35	13	48

Kobiety były awansowane rzadziej

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

Przypadek losowy?

Pierwsze losowanie

	Awansowano	Nie awansowano
Mężczyźni	18	6
Kobiety	17	7

24 CV przypisane do mężczyzn/kobiet
35 dozwolonych awansów

Losowość 1.png

Przypadek losowy?

Losowość 2.png

Przypadek losowy?

Losowość 3.png

Przypadek losowy?

Losowość 4.png

Przypadek losowy?

Losowość 5.png

Przypadek losowy?

Losowość 6.png

Przypadek losowy?

Losowość 7.png

Czas na ćwiczenia!

Podstawy wnioskowania statystycznego w R