例：性差別

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

Ayo berlatih!

Rによる推測の基礎