Contoh: diskriminasi gender

Dasar-dasar Inferensi di R

Jo Hardin

Instructor

Gambar bank.png

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

Datanya

	Dipromosikan	Tidak dipromosikan	Total
Pria	21	3	24
Wanita	14	10	24
Total	35	13	48

Lebih sedikit wanita yang dipromosikan

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

Kebetulan acak?

Pengacakan pertama

	Dipromosikan	Tidak dipromosikan
Pria	18	6
Wanita	17	7

24 CV untuk pria/wanita
35 promosi tersedia

Kemungkinan acak 1.png

Kebetulan acak?

Kemungkinan acak 2.png

Kebetulan acak?

Kemungkinan acak 3.png

Kebetulan acak?

Kemungkinan acak 4.png

Kebetulan acak?

Kemungkinan acak 5.png

Kebetulan acak?

Kemungkinan acak 6.png

Kebetulan acak?

Kemungkinan acak 7.png

Ayo berlatih!

Dasar-dasar Inferensi di R