#set document(title: "7.3 One-Sample Test for the Mean", author: "Kathryn Kozak") #set page(width: 8.5in, height: auto, margin: 1in) #import "@preview/cetz:0.5.2" #set text(font: ("STIX Two Text", "Libertinus Serif", "New Computer Modern"), size: 10.5pt, lang: "en") #show math.equation: set text(font: ("STIX Two Math", "New Computer Modern Math")) #set par(justify: true, leading: 0.62em, spacing: 0.9em) #set enum(spacing: 1.1em) // room between list items so tall inline fractions don't collide #set list(spacing: 1.1em) #set table(stroke: 0.5pt + rgb("#c7ccd3")) #let BLUE = rgb("#183B6F") // brand navy — section bars + example/solution labels (white on navy 11.09:1) #let ORANGE = rgb("#A94509") // brand primary-700 — AA-safe deep orange for TEXT (5.93:1 on white; raw brand #F37021 is 2.94:1 and must never carry text) #let RED = rgb("#DC2626") // brand error-600 #let GREEN = rgb("#059669") // brand success-600 (decoration only; small green text uses green-text #007942) #show heading.where(level: 1): it => block(width: 100%, above: 0pt, below: 16pt, fill: gradient.linear(BLUE, rgb("#2C5AA0")), inset: (x: 14pt, y: 12pt), radius: 3pt, text(fill: white, weight: "bold", size: 19pt, it.body)) #show heading.where(level: 2): it => block(width: 100%, above: 18pt, below: 10pt, fill: BLUE, inset: (x: 10pt, y: 6pt), radius: 2pt, text(fill: white, weight: "bold", size: 12pt, it.body)) #show heading.where(level: 3): it => text(fill: ORANGE, weight: "bold", size: 12.5pt, it.body) #show heading.where(level: 4): it => text(fill: BLUE, weight: "bold", size: 10.5pt, it.body) #let examplebox(label, title, body) = block(width: 100%, breakable: true, fill: rgb("#EFF1F5"), stroke: 0.5pt + rgb("#CFDDF0"), radius: 4pt, inset: 10pt, above: 12pt, below: 12pt)[ #block(below: 6pt)[#box(fill: BLUE, inset: (x: 6pt, y: 2pt), radius: 2pt, text(fill: white, weight: "bold", size: 8.5pt, label)) #h(0.4em) #strong[#title]] #body] // rail = decorative left rule (raw brand token); labelcolor = AA-safe label text shade #let notebox(label, rail, labelcolor, tint, body) = block(width: 100%, breakable: true, fill: tint, stroke: (left: 3pt + rail), inset: (left: 10pt, rest: 8pt), radius: (right: 4pt), above: 11pt, below: 11pt)[ #text(fill: labelcolor, weight: "bold", size: 7.5pt, tracking: 0.5pt)[#upper(label)] #linebreak() #body] #let solutionbox(body) = block(above: 4pt, below: 8pt)[ #text(fill: BLUE, weight: "bold", size: 8.5pt)[Solution] #linebreak() #body] #let figph(msg) = block(width: 100%, height: 60pt, fill: rgb("#f6f7f9"), stroke: (paint: rgb("#c7ccd3"), dash: "dashed"), radius: 4pt, inset: 10pt)[ #align(center + horizon, text(fill: rgb("#889"), style: "italic", size: 9pt, msg))] // Standardize inlined figure sizes: measure the natural CeTZ canvas, then scale to a // consistent envelope (aspect-aware; see build_typst.py FIG_* constants). Unlike the // print preamble, dimensions are FLOORED: in an editor a user can trim a figure to a // degenerate 1-D shape (a bare line), and w/h or tw/w would then divide by zero. #let _STD_W = 3.5 #let _WIDE_W = 5.6 #let _MAX_H = 3.4 #let _ASPECT_WIDE = 2.2 #let _UPSCALE_MAX = 1.15 #let stdfig(body) = context { let m = measure(body) let w = calc.max(m.width / 1in, 0.01) let h = calc.max(m.height / 1in, 0.01) let tw = if w / h > _ASPECT_WIDE { _WIDE_W } else { _STD_W } let s = calc.min(tw / w, _MAX_H / h, _UPSCALE_MAX) align(center, box(scale(x: s * 100%, y: s * 100%, reflow: true, body))) } #show figure: set block(breakable: false) #set figure(gap: 8pt) #show figure.caption: set text(size: 8.5pt, fill: rgb("#555")) == 7.3#h(0.6em)One-Sample Test for the Mean It is time to go back to look at the test for the mean that was introduced in section 7.1 called the z-test. In the example, you knew what the population standard deviation, #math.equation(block: false, alt: "σ")[$σ$], was. What if you don’t know #math.equation(block: false, alt: "σ")[$σ$]? You could just use the sample standard deviation, #emph[s], as an approximation of #math.equation(block: false, alt: "σ")[$σ$]. That means the test statistic is now #math.equation(block: false, alt: "the fraction x ― minus μ over s / the square root of n")[$frac(limits(x)^(―) − μ, s / sqrt(n))$]. Great, now you can go and find the p-value using the normal curve. Or can you? Is this new test statistic normally distributed? Actually, it is not. How is it distributed? A man named W. S. Gossett figured out what this distribution is and called it the Student’s t-distribution. There are some assumptions that must be made for this formula to be a Student’s t-distribution. These are outlined in the following theorem. Note: the t-distribution is called the Student’s t-distribution because that is the name he published under because he couldn’t publish under his own name due to employer not wanting him to publish under his own name. His employer by the way was Guinness and they didn't want competitors knowing they had a chemist working for them. It is not called the Student’s t-distribution because it is only used by students. Theorem: If the following assumptions are met + A random sample of size #emph[n] is taken. + The distribution of the random variable is normal or the sample size is 30 or more. Then the distribution of #math.equation(block: false, alt: "t equals the fraction x ― minus μ over s / the square root of n")[$t = frac(limits(x)^(―) − μ, s / sqrt(n))$] is a Student’s t-distribution with #math.equation(block: false, alt: "n minus 1")[$n − 1$] degrees of freedom. === Explanation of degrees of freedom: Recall the formula for sample standard deviation is #math.equation(block: false, alt: "s equals the square root of the fraction ∑ open parenthesis x minus x ― close parenthesis squared over n minus 1")[$s = sqrt(frac(∑ ( x − limits(x)^(―) )^(2), n − 1))$]. Notice the denominator is #emph[n] - 1. This is the same as the degrees of freedom. This is no accident. The reason the denominator and the degrees of freedom are both #emph[n] -1 comes from how the standard deviation is calculated. Remember, first you take each data value and subtract #math.equation(block: false, alt: "x ―")[$limits(x)^(―)$]. If you add up all of these new values, you will get 0. This must happen. Since it must happen, the first #emph[n] - 1 data values you have “freedom of choice”, but the nth data value, you have no freedom to choose. Hence, you have #emph[n] - 1 degrees of freedom. Another way to think about it is that if you five people and five chairs, the first four people have a choice of where they are sitting, but the last person does not. They have no freedom of where to sit. Only 5 - 1 =4 people have freedom of choice. The Student’s t-distribution is a bell-shape that is more spread out than the normal distribution. There are many t-distributions, one for each different degree of freedom. Here is a graph of the normal distribution and the Student’s t-distribution for df = 1 and df = 2. #figure(figph[Line chart comparing the standard normal density curve with Student’s t density curves for 1 and 2 degrees of freedom, with the t curves lower at the center and heavier in the tails.], alt: "Line chart comparing the standard normal density curve with Student’s t density curves for 1 and 2 degrees of freedom, with the t curves lower at the center and heavier in the tails.", caption: [Figure #math.equation(block: false, alt: "1")[$1$]: Typical Student t-Distributions]) As the degrees of freedom increases, the student’s t-distribution looks more like the normal distribution. To find probabilities for the t-distribution, again technology can do this for you. There are many technologies out there that you can use. On the TI-83/84, the command is in the DISTR menu and is tcdf(. The syntax for this command is tcdf(lower limit, upper limit, #emph[df]) On R: the command to find the area to the left of a t value is pt(t value, df) === Hypothesis Test for One Population Mean (t-Test) + State the random variable and the parameter in words. #linebreak() #emph[x]= random variable #linebreak() #math.equation(block: false, alt: "μ")[$μ$] = mean of random variable + State the null and alternative hypotheses and the level of significance #linebreak() #math.equation(block: false, alt: "H sub o : μ equals μ sub o")[$H_(o) : μ = μ_(o)$], where #math.equation(block: false, alt: "μ sub o")[$μ_(o)$] is the known mean #linebreak() #math.equation(block: false, alt: "H sub A : μ less than μ sub o")[$H_(A) : μ < μ_(o)$] #linebreak() #math.equation(block: false, alt: "H sub A : μ greater than μ sub o")[$H_(A) : μ > μ_(o)$], use the appropriate one for your problem #linebreak() #math.equation(block: false, alt: "H sub A : μ not equal to μ sub o")[$H_(A) : μ ≠ μ_(o)$] #linebreak() Also, state your #math.equation(block: false, alt: "α")[$α$] level here. + State and check the assumptions for a hypothesis test + A random sample of size #emph[n] is taken. + The population of the random variable is normally distributed, though the t-test is fairly robust to the condition if the sample size is large. This means that if this condition isn’t met, but your sample size is quite large (over 30), then the results of the t-test are valid. + The population standard deviation, #math.equation(block: false, alt: "σ")[$σ$], is unknown. + Find the sample statistic, test statistic, and p-value #linebreak() Test Statistic: #linebreak() #math.equation(block: false, alt: "t equals the fraction x ― minus μ over the fraction s over the square root of n")[$t = frac(limits(x)^(―) − μ, frac(s, sqrt(n)))$] #linebreak() with degrees of freedom #emph[df] = #emph[n]- 1 #linebreak() p-value: #linebreak() Using TI-83/84: tcdf(lower limit, upper limit, #emph[df]) Using R: pt(t value, df) #notebox("Note", rgb("#8a94a6"), rgb("#556666"), rgb("#f7f8fa"))[ #emph[Note] If #math.equation(block: false, alt: "H sub A : μ less than μ sub o")[$H_(A) : μ < μ_(o)$], then lower limit is #math.equation(block: false, alt: "minus 1 E 99")[$− 1 E 99$] and upper limit is your test statistic. If #math.equation(block: false, alt: "H sub A : μ greater than μ sub o")[$H_(A) : μ > μ_(o)$], then lower limit is your test statistic and the upper limit is #math.equation(block: false, alt: "1 E 99")[$1 E 99$]. If #math.equation(block: false, alt: "H sub A : μ not equal to μ sub o")[$H_(A) : μ ≠ μ_(o)$], then find the p-value for #math.equation(block: false, alt: "H sub A : μ less than μ sub o")[$H_(A) : μ < μ_(o)$], and multiply by 2. ] #notebox("Note", rgb("#8a94a6"), rgb("#556666"), rgb("#f7f8fa"))[ #emph[Note] If #math.equation(block: false, alt: "H sub A : μ less than μ sub o")[$H_(A) : μ < μ_(o)$], then the command is pt(t value, df). If #math.equation(block: false, alt: "H sub A : μ greater than μ sub o")[$H_(A) : μ > μ_(o)$], then the command is #math.equation(block: false, alt: "1 minus pt(t value, df close parenthesis")[$1 − "pt(t value, df " \)$]. If #math.equation(block: false, alt: "H sub A : μ not equal to μ sub o")[$H_(A) : μ ≠ μ_(o)$], then find the p-value for #math.equation(block: false, alt: "H sub A : μ less than μ sub o")[$H_(A) : μ < μ_(o)$], and multiply by 2. ] + This is where you write reject #math.equation(block: false, alt: "H sub o")[$H_(o)$] or fail to reject #math.equation(block: false, alt: "H sub o")[$H_(o)$]. The rule is: if the p-value \< #math.equation(block: false, alt: "α")[$α$], then reject #math.equation(block: false, alt: "H sub o")[$H_(o)$]. If the p-value #math.equation(block: false, alt: "greater than or equal to α")[$≥ α$], then fail to reject #math.equation(block: false, alt: "H sub o")[$H_(o)$]. + This is where you interpret in real world terms the conclusion to the test. The conclusion for a hypothesis test is that you either have enough evidence to show #math.equation(block: false, alt: "H sub A")[$H_(A)$] is true, or you do not have enough evidence to show #math.equation(block: false, alt: "H sub A")[$H_(A)$] is true. === How to check the assumptions of t-test: In order for the t-test to be valid, the assumptions of the test must be true. Whenever you run a t-test, you must make sure the assumptions are true. You need to check them. Here is how you do this: + For the condition that the sample is a random sample, describe how you took the sample. Make sure your sampling technique is random. + For the condition that population of the random variable is normal, remember the process of assessing normality from chapter 6. #notebox("Note", rgb("#8a94a6"), rgb("#556666"), rgb("#f7f8fa"))[ #emph[Note] If the assumptions behind this test are not valid, then the conclusions you make from the test are not valid. If you do not have a random sample, that is your fault. Make sure the sample you take is as random as you can make it following sampling techniques from chapter 1. If the population of the random variable is not normal, then take a sample larger than 30. If you cannot afford to do that, or if it is not logistically possible, then you do different tests called non-parametric tests. There is an entire course on non-parametric tests, and they will not be discussed in this book. ] #examplebox("Example 1")[test of the mean using the formula][ A random sample of 20 IQ scores of famous people was taken from the website of IQ of Famous People ("IQ of famous," 2013) and a random number generator was used to pick 20 of them. The data are in Example #math.equation(block: false, alt: "1")[$1$]. Do the data provide evidence at the 5% level that the IQ of a famous person is higher than the average IQ of 100? #figure(table( columns: 5, align: left, inset: 6pt, table.header([158], [180], [150], [137], [109]), [225], [122], [138], [145], [180], [118], [118], [126], [140], [165], [150], [170], [105], [154], [118], )) + State the random variable and the parameter in words. + State the null and alternative hypotheses and the level of significance. + State and check the assumptions for a hypothesis test. + Find the sample statistic, test statistic, and p-value. + Conclusion + Interpretation #solutionbox[ 1. #emph[x] = IQ score of a famous person #math.equation(block: false, alt: "μ")[$μ$] = mean IQ score of a famous person 2. #math.equation(block: false, alt: "H sub o : μ equals 100; H sub A : μ greater than 100; α equals 0.05")[$H_(o) : μ = 100 \ H_(A) : μ > 100 \ α = 0.05$] 3. + A random sample of 20 IQ scores was taken. This was said in the problem. + The population of IQ score is normally distributed. This was shown in Example #math.equation(block: false, alt: "2")[$2$]. 4. Sample Statistic: #math.equation(block: true, alt: "x ― equals 145.4; s approximately equals 29.27")[$limits(x)^(―) = 145.4 \ s ≈ 29.27$] Test Statistic: #math.equation(block: true, alt: "t equals the fraction x ― minus μ over the fraction s over the square root of n equals the fraction 145.4 minus 100 over the fraction 29.27 over the square root of 20 approximately equals 6.937")[$t = frac(limits(x)^(―) − μ, frac(s, sqrt(n))) = frac(145.4 − 100, frac(29.27, sqrt(20))) ≈ 6.937$] p-value: #emph[df] = #emph[n]- 1 = 20 - 1 = 19 TI-83/84: p-value = #math.equation(block: false, alt: "tcdf open parenthesis 6.937 , 1 E 99 , 19 close parenthesis equals 6.5 times 10 to the power minus 7")[$op("tcdf") ( 6.937 , 1 E 99 , 19 ) = 6.5 × 10^(− 7)$] R: p-value = #math.equation(block: false, alt: "1 minus pt open parenthesis 6.937 , 19 close parenthesis equals 6.5 times 10 to the power minus 7")[$1 − "pt" ( 6.937 , 19 ) = 6.5 × 10^(− 7)$] pt(6.937, 19) 5. Since the p-value is less than 5%, then reject #math.equation(block: false, alt: "H sub o")[$H_(o)$]. 6. There is enough evidence to show that famous people have a higher IQ than the average IQ of 100. ] ] #examplebox("Example 2")[test of the mean using technology][ In 2011, the average life expectancy for a woman in Europe was 79.8 years. The data in Example #math.equation(block: false, alt: "2")[$2$] are the life expectancies for men in European countries in 2011 ("WHO life expectancy," 2013). Do the data indicate that men’s life expectancy is less than women’s? Test at the 1% level. #notebox("Note", rgb("#8a94a6"), rgb("#556666"), rgb("#f7f8fa"))[ #emph[The T-Test on the life-expectancy data] The 53 life expectancies are pre-loaded. First get the sample statistics the test screen needs, then run the left-tailed T-Test against μ₀ = 79.8 at α = 0.01. - 1-Var Stats: x̄ = 73.74, Sx = 5.73, n = 53 - T-Test μ \< 79.8: t = −7.707, p-value = 1.85×10⁻¹⁰ ] #figure(table( columns: 8, align: left, inset: 6pt, table.header([], [], [], [], [], [], [], []), [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], [], )) + State the random variable and the parameter in words. + State the null and alternative hypotheses and the level of significance. + State and check the assumptions for a hypothesis test. + Find the sample statistic, test statistic, and p-value. + Conclusion + Interpretation #solutionbox[ 1. #emph[x]= life expectancy for a European man in 2011 #math.equation(block: false, alt: "μ")[$μ$] = mean life expectancy for European men in 2011 2. #math.equation(block: false, alt: "H sub o : μ equals 79.8 years; H sub A : μ less than 79.8 years; α equals 0.01")[$H_(o) : μ = 79.8 " years " \ H_(A) : μ < 79.8 " years " \ α = 0.01$] 3. + A random sample of 53 life expectancies of European men in 2011 was taken. The data is actually all of the life expectancies for every country that is considered part of Europe by the World Health Organization. However, the information is still sample information since it is only for one year that the data was collected. It may not be a random sample, but that is probably not an issue in this case. + The distribution of life expectancies of European men in 2011 is normally distributed. To see if this condition has been met, look at the histogram, number of outliers, and the normal probability plot. (If you wish, you can look at the normal probability plot first. If it doesn’t look linear, then you may want to look at the histogram and number of outliers at this point.) #figure(figph[Histogram of expectancy with frequencies 5, 10, 13, 23, and 2 across bins from 60 to 85.], alt: "Histogram of expectancy with frequencies 5, 10, 13, 23, and 2 across bins from 60 to 85.", caption: [Figure #math.equation(block: false, alt: "2")[$2$]: Histogram for Life Expectancies of European Men in 2011]) Not bell shaped #strong[Number of outliers:] #figure(figph[A horizontal boxplot of European men's life expectancies in 2011, with values ranging from about 60 to 82 years and a median near 74 years.], alt: "A horizontal boxplot of European men's life expectancies in 2011, with values ranging from about 60 to 82 years and a median near 74 years.", caption: [Figure #math.equation(block: false, alt: "3")[$3$]: Modified Box Plot for Life Expectancies of European Men in 2011]) or: #emph[IQR]= 79 - 69 = 10 1.5 \* #emph[IQR]= 15 #emph[Q]1 - 1.5 \* #emph[IQR]= 69 - 15 = 54 #emph[Q]3 + 1.5 \* #emph[IQR] = 79 + 15 = 94 Outliers are numbers below 54 and above 94. There are no outliers for this data set. #figure(figph[Normal Q-Q plot of 53 sample values ranging from 60 to 82, with points forming a roughly linear increasing pattern.], alt: "Normal Q-Q plot of 53 sample values ranging from 60 to 82, with points forming a roughly linear increasing pattern.", caption: [Figure #math.equation(block: false, alt: "4")[$4$]: Normal Quantile Plot for Life Expectancies of European Men in 2011]) Not linear This population does not appear to be normally distributed. This sample is larger than 30, so it is good that the t-test is robust. 4. The calculations will be conducted using technology. On the TI-83/84 calculator. Go into STAT and type the data into L1. Then go into STAT and move over to TESTS. Choose T-Test. The setup for the calculator is in #emph[Figure #math.equation(block: false, alt: "4")[$4$]]. #figure(figph[TI-84 calculator T-Test setup screen showing Data input, hypothesized mean μ0 = 79.8, list L1, frequency 1, and the alternative hypothesis μ \< μ0 selected.], alt: "TI-84 calculator T-Test setup screen showing Data input, hypothesized mean μ0 = 79.8, list L1, frequency 1, and the alternative hypothesis μ < μ0 selected.", caption: [Figure #math.equation(block: false, alt: "5")[$5$]: Setup for T-Test on TI-83/84 Calculator]) Once you press ENTER on Calculate you will see the result shown in #emph[Figure #math.equation(block: false, alt: "6")[$6$]]. #figure(figph[TI-84 T-Test results screen showing a left-tailed test with μ\<79.8, t=-7.706934605, p=1.8534E-10, x̄=73.73584906, Sx=5.728306715, and n=53.], alt: "TI-84 T-Test results screen showing a left-tailed test with μ<79.8, t=-7.706934605, p=1.8534E-10, x̄=73.73584906, Sx=5.728306715, and n=53.", caption: [Figure #math.equation(block: false, alt: "6")[$6$]: Result of T-Test on TI-83/84 Calculator]) On R, the command is t.test(variable, mu = number in #math.equation(block: false, alt: "H sub 0")[$H_(0)$], alternative = "less" or "greater"), where mu = what #math.equation(block: false, alt: "H sub 0")[$H_(0)$] says the mean equals, and you use less if your #math.equation(block: false, alt: "H sub A")[$H_(A)$] is less and greater if your #math.equation(block: false, alt: "H sub A")[$H_(A)$] is greater. If your #math.equation(block: false, alt: "H sub A")[$H_(A)$] is not equal to, then leave off the alternative statement. For this example, the command would be t.test(expectancy, mu=79.8, alternative = "less") One Sample t-test data: expectancy t = -7.7069, df = 52, p-value = 1.853e-10 alternative hypothesis: true mean is less than 79.8 95 percent confidence interval: -Inf 75.05357 sample estimates: mean of x 73.73585 Most of the output you don’t need. You need the test statistic and the p-value. The #emph[t]= -7.707 is the test statistic. The p-value is #math.equation(block: false, alt: "1.8534 times 10 to the power minus 10")[$1.8534 × 10^(− 10)$]. 5. Since the p-value is less than 1%, then reject #math.equation(block: false, alt: "H sub o")[$H_(o)$]. 6. There is enough evidence to show that the mean life expectancy for European men in 2011 was less than the mean life expectancy for European women in 2011 of 79.8 years. ] ] === Homework #notebox("Your Turn", rgb("#8a94a6"), rgb("#556666"), rgb("#f7f8fa"))[ In each problem show all steps of the hypothesis test. If some of the assumptions are not met, note that the results of the test may not be correct and then continue the process of the hypothesis test. + The Kyoto Protocol was signed in 1997, and required countries to start reducing their carbon emissions. The protocol became enforceable in February 2005. In 2004, the mean CO2 emission was 4.87 metric tons per capita. Table #math.equation(block: false, alt: "3")[$3$] contains a random sample of CO2 emissions in 2010 ("CO2 emissions," 2013). Is there enough evidence to show that the mean CO2 emission is lower in 2010 than in 2004? Test at the 1% level. #figure(table( columns: 7, align: left, inset: 6pt, table.header([1.36], [1.42], [5.93], [5.36], [0.06], [9.11], [7.32]), [7.93], [6.72], [0.78], [1.80], [0.20], [2.27], [0.28], [5.86], [3.46], [1.46], [0.14], [2.62], [0.79], [7.48], [0.86], [7.84], [2.87], [2.45], [], [], [], )) + The amount of sugar in a Krispy Kream glazed donut is 10 g. Many people feel that cereal is a healthier alternative for children over glazed donuts. Example #math.equation(block: false, alt: "4")[$4$] contains the amount of sugar in a sample of cereal that is geared towards children ("Healthy breakfast story," 2013). Is there enough evidence to show that the mean amount of sugar in children’s cereal is more than in a glazed donut? Test at the 5% level. #figure(table( columns: 7, align: left, inset: 6pt, table.header([10], [14], [12], [9], [13], [13], [13]), [11], [12], [15], [9], [10], [11], [3], [6], [12], [15], [12], [12], [], [], )) + The FDA regulates that fish that is consumed is allowed to contain 1.0 mg/kg of mercury. In Florida, bass fish were collected in 53 different lakes to measure the amount of mercury in the fish. The data for the average amount of mercury in each lake is in Table #math.equation(block: false, alt: "5")[$5$] ("Multi-disciplinary niser activity," 2013). Do the data provide enough evidence to show that the fish in Florida lakes has more mercury than the allowable amount? Test at the 10% level. #figure(table( columns: 6, align: left, inset: 6pt, table.header([1.23], [1.33], [0.04], [0.44], [1.20], [0.27]), [0.48], [0.19], [0.83], [0.81], [0.81], [0.5], [0.49], [1.16], [0.05], [0.15], [0.19], [0.77], [1.08], [0.98], [0.63], [0.56], [0.41], [0.73], [0.34], [0.59], [0.34], [0.84], [0.50], [0.34], [0.28], [0.34], [0.87], [0.56], [0.17], [0.18], [0.19], [0.04], [0.49], [1.10], [0.16], [0.10], [0.48], [0.21], [0.86], [0.52], [0.65], [0.27], [0.94], [0.40], [0.43], [0.25], [0.27], [], )) + Stephen Stigler determined in 1977 that the speed of light is 299,710.5 km/sec. In 1882, Albert Michelson had collected measurements on the speed of light ("Student t-distribution," 2013). His measurements are given in Example #math.equation(block: false, alt: "6")[$6$]. Is there evidence to show that Michelson’s data is different from Stigler’s value of the speed of light? Test at the 5% level. #figure(table( columns: 5, align: left, inset: 6pt, table.header([299883], [299816], [299778], [299796], [299682]), [299711], [299611], [299599], [300051], [299781], [299578], [299796], [299774], [299820], [299772], [299696], [299573], [299748], [299748], [299797], [299851], [299809], [299723], [], [], )) + Table 7 contains pulse rates after running for 1 minute, collected from females who drink alcohol ("Pulse rates before," 2013). The mean pulse rate after running for 1 minute of females who do not drink is 97 beats per minute. Do the data show that the mean pulse rate of females who do drink alcohol is higher than the mean pulse rate of females who do not drink? Test at the 5% level. #figure(table( columns: 6, align: left, inset: 6pt, table.header([176], [150], [150], [115], [129], [160]), [120], [125], [89], [132], [120], [120], [68], [87], [88], [72], [77], [84], [92], [80], [60], [67], [59], [64], [88], [74], [68], [], [], [], )) + The economic dynamism, which is the index of productive growth in dollars for countries that are designated by the World Bank as middle-income are in Table 8 ("SOCR data 2008," 2013). Countries that are considered high-income have a mean economic dynamism of 60.29. Do the data show that the mean economic dynamism of middle-income countries is less than the mean for high-income countries? Test at the 5% level. #figure(table( columns: 7, align: left, inset: 6pt, table.header([25.8057], [37.4511], [51.915], [43.6952], [47.8506], [43.7178], [58.0767]), [41.1648], [38.0793], [37.7251], [39.6553], [42.0265], [48.6159], [43.8555], [49.1361], [61.9281], [41.9543], [44.9346], [46.0521], [48.3652], [43.6252], [50.9866], [59.1724], [39.6282], [33.6074], [21.6643], [], [], )) + In 1999, the average percentage of women who received prenatal care per country is 80.1%. Table 9 contains the percentage of woman receiving prenatal care in 2009 for a sample of countries ("Pregnant woman receiving," 2013). Do the data show that the average percentage of women receiving prenatal care in 2009 is higher than in 1999? Test at the 5% level. #figure(table( columns: 6, align: left, inset: 6pt, table.header([70.08], [72.73], [74.52], [75.79], [76.28], [76.28]), [76.65], [80.34], [80.60], [81.90], [86.30], [87.70], [87.76], [88.40], [90.70], [91.50], [91.80], [92.10], [92.20], [92.41], [92.47], [93.00], [93.20], [93.40], [93.63], [93.69], [93.80], [94.30], [94.51], [95.00], [95.80], [95.80], [96.23], [96.24], [97.30], [97.90], [97.95], [98.20], [99.00], [99.00], [99.10], [99.10], [100.00], [100.00], [100.00], [100.00], [100.00], [], )) + Maintaining your balance may get harder as you grow older. A study was conducted to see how steady the elderly is on their feet. They had the subjects stand on a force platform and have them react to a noise. The force platform then measured how much they swayed forward and backward, and the data is in Table 10 ("Maintaining balance while," 2013). Do the data show that the elderly sway more than the mean forward sway of younger people, which is 18.125 mm? Test at the 5% level. #figure(table( columns: 9, align: left, inset: 6pt, [19], [30], [20], [19], [29], [25], [21], [24], [50], )) Answer For all hypothesis tests, just the conclusion is given. See solutions for the entire answer. 1. Fail to reject Ho. 3. Fail to reject Ho. 5. Fail to reject Ho. 7. Reject Ho. ] === Data Sources: Australian Human Rights Commission, (1996). #emph[Indigenous deaths in custody 1989 - 1996.] Retrieved from website: www.humanrights.gov.au/public...deaths-custody #emph[CDC features - new data on autism spectrum disorders.] (2013, November 26). Retrieved from www.cdc.gov/features/countingautism/ Center for Disease Control and Prevention, Prevalence of Autism Spectrum Disorders - Autism and Developmental Disabilities Monitoring Network. (2008). #emph[Autism and developmental disabilities monitoring network-2012]. Retrieved from website: www.cdc.gov/ncbddd/autism/doc...nityReport.pdf #emph[CO2 emissions.] (2013, November 19). Retrieved from #link("http://data.worldbank.org/indicator/EN.ATM.CO2E.PC")[http://data.worldbank.org/indicator/EN.ATM.CO2E.PC] Federal Trade Commission, (2008). #emph[Consumer fraud and identity theft complaint data: January-December 2007]. Retrieved from website: www.ftc.gov/opa/2008/02/fraud.pdf #emph[Gallup news service]. (2013, November 7-10). Retrieved from www.gallup.com/file/poll/1658...acy\_131115.pdf #emph[Healthy breakfast story]. (2013, November 16). Retrieved from lib.stat.cmu.edu/DASL/Stories...Breakfast.html #emph[IQ of famous people]. (2013, November 13). Retrieved from #link("http://www.kidsiqtestcenter.com/IQ-famous-people.html")[http://www.kidsiqtestcenter.com/IQ-famous-people.html] #emph[Maintaining balance while concentrating]. (2013, September 25). Retrieved from #link("http://www.statsci.org/data/general/balaconc.html")[http://www.statsci.org/data/general/balaconc.html] #emph[Morgan Gallup poll on unemployment]. (2013, September 26). Retrieved from #link("http://www.statsci.org/data/oz/gallup.html")[http://www.statsci.org/data/oz/gallup.html] #emph[Multi-disciplinary niser activity - mercury in bass]. (2013, November 16). Retrieved from #link("http://gozips.uakron.edu/~nmimoto/pages/datasets/MercuryInBass")[http://gozips.uakron.edu/~nmimoto/pa.../MercuryInBass] - description.txt #emph[Pregnant woman receiving prenatal care]. (2013, October 14). Retrieved from #link("http://data.worldbank.org/indicator/SH.STA.ANVC.ZS")[http://data.worldbank.org/indicator/SH.STA.ANVC.ZS] #emph[SOCR data 2008 world countries rankings]. (2013, November 16). Retrieved from #link("http://wiki.stat.ucla.edu/socr/index.php/SOCR_Data_2008_World_CountriesRankings")[http://wiki.stat.ucla.edu/socr/index...ntriesRankings] #emph[Student t-distribution]. (2013, November 25). Retrieved from lib.stat.cmu.edu/DASL/Stories/student.html #emph[WHO life expectancy]. (2013, September 19). Retrieved from www.who.int/gho/mortality\_bur...n\_trends/en/in dex.html