Пример: дискриминация по половому признаку

Основы статистического вывода в R

Jo Hardin

Instructor

Изображение банка.png

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

Резюме.png

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

Данные

	Повышено	Не повышено	Всего
Мужчины	21	3	24
Женщины	14	10	24
Всего	35	13	48

Женщин повышали реже

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

Случайность?

Первое перемешивание

	Повышено	Не повышено
Мужчины	18	6
Женщины	17	7

24 резюме для мужчин/женщин
35 возможных повышений

Случайность 1.png

Случайность?

Случайность 2.png

Случайность?

Случайность 3.png

Случайность?

Случайность 4.png

Случайность?

Случайность 5.png

Случайность?

Случайность 6.png

Случайность?

Случайность 7.png

Давайте потренируемся!

Основы статистического вывода в R