At the 0.05 significance level, test the null hypothesis that 1 is equal to 0 using Wald test in R. What is the value of the test statistic? What's the distribution of the test statistic (including degrees of freedom)? What do you conclude? Show in New Window A tibble:6 3 grmhem apgar5 tox 0 7 0 0 8 0 0 0 0 0 8 0 0 7 1 1 0 0 6 rows tbl_df 6 x 3 grmhem apgar5 tox Min. :0.00 Min. :0.00 Min. :0.00 1st Qu.:0.00 1st Qu.:5.00 1st Qu.:0.00 Median :0.00 Median :7.00 Median :0.00 Mean :0.15 Mean :6.25 Mean :0.21 3rd Qu.:0.00 3rd Qu.:8.00 3rd Qu.:0.00 Max. :1.00 Max. :9.00 Max. :1.00 R Console grmhem apgar5 tox Min. :0.00 Min. :0.00 Min. :0.00 1st Qu.:0.00 1st Qu.:5.00 1st Qu.:0.00 Median :0.00 Median :7.00 Median :0.00 Mean :0.15 Mean :6.25 Mean :0.21 3rd Qu.:0.00 3rd Qu.:8.00 3rd Qu.:0.00 Max. :1.00 Max. :9.00 Max. :1.00 Show in New Window Call: glm(formula = lowbwt_1$grmhem ~ lowbwt_1$apgar5, family = binomial("logit"), data = lowbwt_1) Coefficients: Estimate Std. Error z value Pr(>|z|) (Intercept) -0.3037 0.6191 -0.491 0.6237 lowbwt_1$apgar5 -0.2496 0.1044 -2.392 0.0168 * --- Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1 (Dispersion parameter for binomial family taken to be 1) Null deviance: 84.542 on 99 d