Additional Tables

Chi_Square Results: carried_gun_to_public

chi_gun_to_public

Chi_Square Results: carried_gun_to_school

chi_gun_to_school

t-Tests: carried_gun_to_school

# AGE 
age <- imp_list %>%
  mice::complete("all") %>%
  mi.t.test("age","carried_gun_to_school", alternative = "two.sided", var.equal = FALSE) %>%
  broom::tidy() %>%
  rename("mean_group_0" = estimate1, 
         "sd_group_0" = estimate2, 
         "mean_group_1" = estimate3, 
         "sd_group_1" = estimate4, 
         "t_value" = statistic, 
         "p_value" = p.value, 
         "degrees_of_freeedom" = parameter,
         "confidence_lower" = conf.low, 
         "confidence_upper" = conf.high)

age

# Anger_freqs
anger <- imp_list %>%
  mice::complete("all") %>%
  mi.t.test("anger_freqs","carried_gun_to_school", alternative = "two.sided", var.equal = FALSE) %>%
    broom::tidy() %>%
  rename("mean_group_0" = estimate1, 
         "sd_group_0" = estimate2, 
         "mean_group_1" = estimate3, 
         "sd_group_1" = estimate4, 
         "t_value" = statistic, 
         "p_value" = p.value, 
         "degrees_of_freeedom" = parameter,
         "confidence_lower" = conf.low, 
         "confidence_upper" = conf.high)

anger

# Anxiety_freqs
anxiety <- imp_list %>%
  mice::complete("all") %>%
  mi.t.test("anxiety_freqs","carried_gun_to_school", alternative = "two.sided", var.equal = FALSE) %>%
    broom::tidy() %>%
  rename("mean_group_0" = estimate1, 
         "sd_group_0" = estimate2, 
         "mean_group_1" = estimate3, 
         "sd_group_1" = estimate4, 
         "t_value" = statistic, 
         "p_value" = p.value, 
         "degrees_of_freeedom" = parameter,
         "confidence_lower" = conf.low, 
         "confidence_upper" = conf.high)

anxiety 

# Depression_freqs
depression <- imp_list %>%
  mice::complete("all") %>%
  mi.t.test("depression_freqs","carried_gun_to_school", alternative = "two.sided", var.equal = FALSE) %>%
    broom::tidy() %>%
  rename("mean_group_0" = estimate1, 
         "sd_group_0" = estimate2, 
         "mean_group_1" = estimate3, 
         "sd_group_1" = estimate4, 
         "t_value" = statistic, 
         "p_value" = p.value, 
         "degrees_of_freeedom" = parameter,
         "confidence_lower" = conf.low, 
         "confidence_upper" = conf.high)

depression

# non-gun_delinquency scale 
non_gun_del <- imp_list %>%
  mice::complete("all") %>%
  mi.t.test("non_gun_delinquency_scale","carried_gun_to_school", alternative = "two.sided", var.equal = FALSE) %>%
    broom::tidy() %>%
  rename("mean_group_0" = estimate1, 
         "sd_group_0" = estimate2, 
         "mean_group_1" = estimate3, 
         "sd_group_1" = estimate4, 
         "t_value" = statistic, 
         "p_value" = p.value, 
         "degrees_of_freeedom" = parameter,
         "confidence_lower" = conf.low, 
         "confidence_upper" = conf.high)

non_gun_del

t-Tests carried_gun_to_public

# AGE 
age <- imp_list %>%
  mice::complete("all") %>%
  mi.t.test("age","carried_gun_to_public", alternative = "two.sided", var.equal = FALSE) %>%
  broom::tidy() %>%
  rename("mean_group_0" = estimate1, 
         "sd_group_0" = estimate2, 
         "mean_group_1" = estimate3, 
         "sd_group_1" = estimate4, 
         "t_value" = statistic, 
         "p_value" = p.value, 
         "degrees_of_freeedom" = parameter,
         "confidence_lower" = conf.low, 
         "confidence_upper" = conf.high)

age 

# Anger_freqs
anger <- imp_list %>%
  mice::complete("all") %>%
  mi.t.test("anger_freqs","carried_gun_to_public", alternative = "two.sided", var.equal = FALSE) %>%
    broom::tidy() %>%
  rename("mean_group_0" = estimate1, 
         "sd_group_0" = estimate2, 
         "mean_group_1" = estimate3, 
         "sd_group_1" = estimate4, 
         "t_value" = statistic, 
         "p_value" = p.value, 
         "degrees_of_freeedom" = parameter,
         "confidence_lower" = conf.low, 
         "confidence_upper" = conf.high)

anger

# Anxiety_freqs
anxiety <- imp_list %>%
  mice::complete("all") %>%
  mi.t.test("anxiety_freqs","carried_gun_to_public", alternative = "two.sided", var.equal = FALSE) %>%
    broom::tidy() %>%
  rename("mean_group_0" = estimate1, 
         "sd_group_0" = estimate2, 
         "mean_group_1" = estimate3, 
         "sd_group_1" = estimate4, 
         "t_value" = statistic, 
         "p_value" = p.value, 
         "degrees_of_freeedom" = parameter,
         "confidence_lower" = conf.low, 
         "confidence_upper" = conf.high)

anxiety 

# Depression_freqs
depression <- imp_list %>%
  mice::complete("all") %>%
  mi.t.test("depression_freqs","carried_gun_to_public", alternative = "two.sided", var.equal = FALSE) %>%
    broom::tidy() %>%
  rename("mean_group_0" = estimate1, 
         "sd_group_0" = estimate2, 
         "mean_group_1" = estimate3, 
         "sd_group_1" = estimate4, 
         "t_value" = statistic, 
         "p_value" = p.value, 
         "degrees_of_freeedom" = parameter,
         "confidence_lower" = conf.low, 
         "confidence_upper" = conf.high)

depression 

# non-gun_delinquency scale 
non_gun_del <- imp_list %>%
  mice::complete("all") %>%
  mi.t.test("non_gun_delinquency_scale","carried_gun_to_public", alternative = "two.sided", var.equal = FALSE) %>%
    broom::tidy() %>%
  rename("mean_group_0" = estimate1, 
         "sd_group_0" = estimate2, 
         "mean_group_1" = estimate3, 
         "sd_group_1" = estimate4, 
         "t_value" = statistic, 
         "p_value" = p.value, 
         "degrees_of_freeedom" = parameter,
         "confidence_lower" = conf.low, 
         "confidence_upper" = conf.high)

non_gun_del