title: “HW 7” author: “Hadiyah Sumter” date: “2025-11-13” output: html_document —
##State the hypothesss test ## H0: p1 ≤ 0.05 Ha: p1 > 0.05
Where: \(p_1\)= Is the proportion of the female students that took the Biology Exam. \(p_2\) = Is the propoertion of female students that took Calculus AB Exam.
α = 0.05
p-value
prop.test(c(84200, 102598), c(144790, 211693), alternative ="greater")
##
## 2-sample test for equality of proportions with continuity correction
##
## data: c(84200, 102598) out of c(144790, 211693)
## X-squared = 3234.9, df = 1, p-value < 2.2e-16
## alternative hypothesis: greater
## 95 percent confidence interval:
## 0.09408942 1.00000000
## sample estimates:
## prop 1 prop 2
## 0.5815319 0.4846547
Since the p-value < 0.05, we reject the null hypothesis.
There is strong statistical evidence that the proportion of female students taking the AP Biology exam is higher than the proportion of female students taking the AP Calculus AB exam.
##State the hypothesss test ##
\(H_0\): \(\mu_1\) \(H_a\): \(\mu_2\)
Where,
\(\mu_1\) = mean of crying time using conventional holding
\(\mu_2\) = Holding infant with the Mother
α = 0.05
p-value
conventional_methods <- c(63,0,2,46,33,33,29,23,12,48,15,33,14,51,37,24,70,63,0,73,39,54,52,39,34,58,18)
Mother <- c(0,32,20,23,14,19,60,59,61,72,50,44,14,10,41,19,41,17,5,36,73,19,46,9,43,27,25,18)
t.test(Mother, conventional_methods, alternative = "less", paired = FALSE)
##
## Welch Two Sample t-test
##
## data: Mother and conventional_methods
## t = -0.64957, df = 52.761, p-value = 0.2594
## alternative hypothesis: true difference in means is less than 0
## 95 percent confidence interval:
## -Inf 5.727688
## sample estimates:
## mean of x mean of y
## 32.03571 35.66667
Because the p-value (0.224) is greater than the significance level of 0.05, we fail to reject 𝐻0.
There is not enough evidence at the 5% significance level to conclude that infants cry less on average when they are held by their mothers compared to when held using conventional methods.