अंतर के लिए इंटरवल्स

R में श्रेणीबद्ध डेटा के लिए अनुमान

Andrew Bray

Assistant Professor of Statistics at Reed College

दो वैरिएबल्स में एक प्रश्न

क्या महिलाएँ और पुरुष अलग दरों पर विश्वास करते हैं?

मान लें $p$ वह अनुपात है जो मृत्यु के बाद जीवन में विश्वास करता है।

$H_{0} : p_{female} - p_{male} = 0$
$H_{A} : p_{female} - p_{male} \ne 0$

क्या मृत्यु के बाद जीवन पर महिलाओं और पुरुषों की राय अलग है?

ggplot(gss2016, aes(x = sex, fill = postlife)) +
  geom_bar()

क्या मृत्यु के बाद जीवन पर महिलाओं और पुरुषों की राय अलग है?

ggplot(gss2016, aes(x = sex, fill = postlife)) +
  geom_bar(position = "fill")

क्या मृत्यु के बाद जीवन पर महिलाओं और पुरुषों की राय अलग है?

p_hats <- gss2016 %>%
  group_by(sex) %>%
  summarize(mean(postlife == "YES", na.rm = TRUE)) %>%
  pull()

d_hat <- diff(p_hats)
d_hat

0.1472851

H0 से डेटा जनरेट करना

$H_{0} : p_{female} - p_{male} = 0$
परलोक में विश्वास और उत्तरदाता के लिंग के बीच कोई संबद्धता नहीं है।
वैरिएबल postlife वैरिएबल sex से स्वतंत्र है।

⇒ परम्यूटेशन से डेटा जनरेट करें

क्या मृत्यु के बाद जीवन पर महिलाओं और पुरुषों की राय अलग है?

gss2016 %>%
  specify(
    response = postlife, 
    explanatory = sex, 
    success = "YES"
  ) %>%
  hypothesize(null = "independence") %>%
  generate(reps = 1, type = "permute")

क्या मृत्यु के बाद जीवन पर महिलाओं और पुरुषों की राय अलग है?

gss2016 %>%
  specify(
    postlife ~ sex,  # this line is new
    success = "YES"
  ) %>%
  hypothesize(null = "independence") %>%
  generate(reps = 1, type = "permute")

Response: postlife (factor)
Explanatory: sex (factor)
Null Hypothesis:  independence 
# A tibble: 137 x 3
# Groups:   replicate [1]
   postlife sex    replicate
   <fct>    <fct>      <int>
 1 YES      FEMALE         1
 2 YES      MALE           1
 3 YES      FEMALE         1
 4 YES      MALE           1
 5 YES      MALE           1
 6 YES      FEMALE         1
 7 NO       FEMALE         1

क्या मृत्यु के बाद जीवन पर महिलाओं और पुरुषों की राय अलग है?

gss2016 %>%
  specify(
    postlife ~ sex, 
    success = "YES"
  ) %>%
  hypothesize(null = "independence") %>%
  generate(reps = 1, type = "permute")

Response: postlife (factor)
Explanatory: sex (factor)
Null Hypothesis:  independence 
# A tibble: 137 x 3
# Groups:   replicate [1]
   postlife sex    replicate
   <fct>    <fct>      <int>
 1 YES      FEMALE         1
 2 NO       MALE           1
 3 NO       FEMALE         1
 4 YES      MALE           1
 5 YES      MALE           1
 6 YES      FEMALE         1
 7 YES      FEMALE         1

क्या मृत्यु के बाद जीवन पर महिलाओं और पुरुषों की राय अलग है?

gss2016 %>%
  specify(postlife ~ sex, success = "YES") %>%
  hypothesize(null = "independence") %>%
  generate(reps = 500, type = "permute") %>%
  calculate(stat = "diff in props", order = c("FEMALE", "MALE"))

Warning message:
Removed 13 rows containing missing values.

क्या मृत्यु के बाद जीवन पर महिलाओं और पुरुषों की राय अलग है?

ggplot(null, aes(x = stat)) +
  geom_density() +
  geom_vline(xintercept = d_hat, color = "red")

ये डेटा दर्शाते हैं कि मृत्यु के बाद जीवन के विश्वास में लिंगों के बीच अंतर है।

अभ्यास करते हैं!

R में श्रेणीबद्ध डेटा के लिए अनुमान