Voorbeeld: genderdiscriminatie

Basis van inferentie in R

Jo Hardin

Instructor

Bankafbeelding.png

1 Rosen B en Jerdee T. 1974. Influence of sex role stereotypes on personnel decisions. Journal of Applied Psychology
Basis van inferentie in R

Cv’s.png

1 Rosen B en Jerdee T. 1974. Influence of sex role stereotypes on personnel decisions. Journal of Applied Psychology
Basis van inferentie in R

De data

Gepromoveerd Niet gepromoveerd Totaal
Man 21 3 24
Vrouw 14 10 24
Totaal 35 13 48
Basis van inferentie in R

Minder vrouwen gepromoveerd

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
Basis van inferentie in R

Toeval?

Eerste shuffle

Gepromoveerd Niet gepromoveerd
Man 18 6
Vrouw 17 7

 

  • 24 cv’s toegewezen aan man/vrouw
  • 35 promoties toegestaan

Willekeur 1.png

Basis van inferentie in R

Toeval?

Willekeur 2.png

Basis van inferentie in R

Toeval?

Willekeur 3.png

Basis van inferentie in R

Toeval?

Willekeur 4.png

Basis van inferentie in R

Toeval?

Willekeur 5.png

Basis van inferentie in R

Toeval?

Willekeur 6.png

Basis van inferentie in R

Toeval?

Willekeur 7.png

Basis van inferentie in R

Laten we oefenen!

Basis van inferentie in R

Preparing Video For Download...