예시: 성차별

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에서의 추론 기초