Příklad: diskriminace podle pohlaví

Základy statistické inference v R

Jo Hardin

Instructor

Bank image.png

1 Rosen B and Jerdee T. 1974. Influence of sex role stereotypes on personnel decisions. Journal of Applied Psychology
Základy statistické inference v R

Resumes.png

1 Rosen B and Jerdee T. 1974. Influence of sex role stereotypes on personnel decisions. Journal of Applied Psychology
Základy statistické inference v R

Data

Povýšen Nepovýšen Celkem
Muž 21 3 24
Žena 14 10 24
Celkem 35 13 48
Základy statistické inference v R

Ženy byly povýšeny méně

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
Základy statistické inference v R

Náhoda?

První promíchání

Povýšen Nepovýšen
Muž 18 6
Žena 17 7

 

  • 24 životopisů přiřazeno mužům/ženám
  • 35 povolených povýšení

Random chance 1.png

Základy statistické inference v R

Náhoda?

Random chance 2.png

Základy statistické inference v R

Náhoda?

Random chance 3.png

Základy statistické inference v R

Náhoda?

Random chance 4.png

Základy statistické inference v R

Náhoda?

Random chance 5.png

Základy statistické inference v R

Náhoda?

Random chance 6.png

Základy statistické inference v R

Náhoda?

Random chance 7.png

Základy statistické inference v R

Pojďme procvičovat!

Základy statistické inference v R

Preparing Video For Download...