#set document(title: "9.1 Two Sample Mean T-Test for Dependent Groups", author: "Rachel Webb") #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")) == 9.1#h(0.6em)Two Sample Mean T-Test for Dependent Groups Dependent samples or matched pairs, occur when the subjects are paired up, or matched in some way. Most often, this model is characterized by selection of a random sample where each member is observed under two different conditions, before/after some experiment, or subjects that are similar (matched) to each other are studied under two different conditions. There are 3 types of hypothesis tests for comparing two #strong[dependent]population means µ#sub[1] and µ#sub[2], where, µ#sub[D] is the expected difference of the matched pairs. #figure(figph[Table of the three hypothesis setups for a paired-means t-test: two-tailed with H0: μD = 0 and H1: μD ≠ 0, right-tailed with H1: μD \> 0, and left-tailed with H1: μD \< 0, each above a normal curve shaded in both tails, the right tail, or the left tail respectively.], alt: "Table of the three hypothesis setups for a paired-means t-test: two-tailed with H0: μD = 0 and H1: μD ≠ 0, right-tailed with H1: μD > 0, and left-tailed with H1: μD < 0, each above a normal curve shaded in both tails, the right tail, or the left tail respectively.", caption: [Figure 9-1]) Note: If each pair were equal to one another then the mean of the differences would be zero. We could also use this model to test with a magnitude of a difference, but we rarely cover that scenario, therefore we are usually test against the difference of zero. The t-test for #strong[dependent]samples is a statistical test for comparing the means from two dependent populations (or the difference between the means from two populations). The t-test is used when the differences are normally distributed. The samples also must be dependent. #notebox("Note", rgb("#8a94a6"), rgb("#556666"), rgb("#f7f8fa"))[ The formula for the t-test statistic is: #math.equation(block: false, alt: "t equals the fraction D bar minus μ sub D over open parenthesis the fraction S sub D over the square root of n close parenthesis")[$t = frac(overline(D) − μ_(D), ( frac(S_(D), sqrt(n)) ))$]. Where the t-distribution with degrees of freedom, #emph[df]= #emph[n] – 1 ] Note we will usually only use the case where µ#sub[D] equals zero. The subscript “#emph[D]” denotes the difference between population one and two. It is important to compute #emph[D] = x#sub[1] – x#sub[2] for each pair of observations. However, this makes setting up the hypotheses more challenging for one-tailed tests. If we were looking for an increase in test scores from before to after, then we would expect the after score to be larger. When we take a smaller number minus a larger number then the difference would be negative. If we put the before group first and the after group second then we would need a left-tailed test μ#sub[D] \< 0 to test the “increase” in test scores. This is opposite of the sign we associate for “increase.” If we swap the order and use the after group first, then the before group would have a larger number minus a smaller number which would be positive and we would do a right-tailed test μ#sub[D] \> 0. Always subtract in the same order the data is presented in the question. An easier way to decide on the one-tailed test is to write down the two labels and then put a less than symbol between them depending on the question. For example, if the research statement is a weight loss program significantly decreases the average weight, the sign of the test would change depending on which group came first. If we subtract before weight – after weight, then we would want to have before \> after and use μ#sub[D] \> 0. If we have the after weight as the first measurement then we would subtract the after weight – before weight and want after \< before and use μ#sub[D] \< 0. If you keep your labels in the same order as they appear in the question, compare them and carry this sign down to the alternative hypothesis. The traditional method (or critical value method), the p-value method, and the confidence interval method are performed with steps that are identical to those when performing hypothesis tests for one population. #examplebox("Example 1")[][ A dietician is testing to see if a new diet program reduces the average weight. They randomly sample 35 patients and measure them before they start the program and then weigh them again after 2 months on the program. What are the correct hypotheses? #solutionbox[ Let x#sub[1] = weight before a weight-loss program and x#sub[2] = weight after the weight-loss program. We want to test if, on average, participants lose weight. Therefore, the difference #emph[D] = x#sub[1] – x#sub[2]. This gives #emph[D] = before weight – after weight, thus if on average people do lose weight, then in general the before \> after and the D’s are positive. How we define our differences determines that this example is a right-tailed test (carry the \> sign down to the alternative hypothesis) and the correct hypotheses are: H#sub[0]: µ#sub[D] = 0 H#sub[1]: µ#sub[D] \> 0 If we were to do the same problem but reverse the order and take #emph[D] = after weight – before weight the correct alternative hypothesis is H#sub[1]: µ#sub[D] \< 0 since after weight \< before weight. Just be consistent throughout your problem, and never switch the order of the groups in a problem. ] ] #strong[P-Value Method Example] #examplebox("Example 2")[][ In an effort to increase production of an automobile part, the factory manager decides to play music in the manufacturing area. Eight workers are selected, and the number of items each produced for a specific day is recorded. After one week of music, the same workers are monitored again. The data are given in the table. At #math.equation(block: false, alt: "α")[$α$] = 0.05, can the manager conclude that the music has increased production? Assume production is normally distributed. Use the p-value method. #notebox("Note", rgb("#8a94a6"), rgb("#556666"), rgb("#f7f8fa"))[ #emph[Run the matched-pairs t-test on the book's eight workers] The first link carries Before in L1 and After in L2; choose the paired (dependent) t-test, hypothesized difference 0, and a left-tailed alternative to reproduce D-bar = -2, sD = 2.0702 and t = -2.7325. The other two links are the df = 7 lookups the book does next -- swap the alternative to two-tailed and watch the p-value double. - Before in L1, After in L2 (n = 8 pairs) - p-value: P(t \< -2.7325), df = 7 = 0.0146 - critical value: invT(0.05,7) = -1.8946 ] Worker 1 2 3 4 5 6 7 8 Before 6 8 10 9 5 12 9 7 After 10 12 9 12 8 13 8 10 #solutionbox[ Assumptions: We are comparing production rates before and after music is played in the manufacturing area. We are given that the production rates are normally distributed. Because these are consecutive times from the same population, they are dependent samples, so we must use the t-test for matched pairs. Let population 1 be the number of items before the music, and population 2 be after. The claim is that music increases production so before production \< after production. Carry this same sign to the alternative hypothesis. The correct hypotheses are: H#sub[0]: µ#sub[D] = 0; H#sub[1]: µ#sub[D] \< 0, this is a left-tailed test. In order to compute the t-test statistic, we must first compute the differences between each of the matched pairs. #figure(table( columns: 9, align: left, inset: 6pt, table.header([Before (x#sub[1])], [6], [8], [10], [9], [5], [12], [9], [7]), [After (x#sub[2)]], [10], [12], [9], [12], [8], [13], [8], [10], [#emph[D] = x#sub[1]-x#sub[2]], [–4], [–4], [1], [–3], [–3], [–1], [1], [–3], )) Using the 1-var stats on the differences in your calculator, we compute #math.equation(block: false, alt: "D bar equals x bar equals minus 2")[$overline(D) = overline(x) = − 2$], s#sub[D] = s#sub[x] = 2.0702, #emph[n] = 8. The test statistic is: #math.equation(block: false, alt: "\\t equals the fraction D bar minus μ sub D over open parenthesis the fraction s sub D over the square root of n close parenthesis equals the fraction minus 2 minus 0 over open parenthesis the fraction 2.0702 over the square root of 8 close parenthesis equals minus 2.7325")[$"\\t" = frac(overline(D) − μ_(D), ( frac(s_(D), sqrt(n)) )) = frac(− 2 − 0, ( frac(2.0702, sqrt(8)) )) = − 2.7325$]. The p-value for a two-tailed t-test with degrees of freedom = #emph[n] – 1 = 7, is found by finding the area to the left of the test statistic –2.7325 using technology. Decision: Since the p-value = 0.0146 is less than #math.equation(block: false, alt: "α")[$α$] = 0.05, we reject H#sub[0]. Summary: At the 5% level of significance, there is enough evidence to support the claim that the mean production rate increases when music is played in the manufacturing area. #strong[TI-84:] Find the differences between the sample pairs (you can subtract two lists to do this). Press the \[STAT\] key and then the \[EDIT\] function, enter the difference column into list one. Press the \[STAT\] key, arrow over to the \[TESTS\] menu. Arrow down to the option \[2:T -Test\] and press the \[ENTER\]. Arrow over to the \[Data\] menu and press the \[ENTER\] key. Then type in the hypothesized mean as 0, List: L3, leave Freq:1 alone, arrow over to the #math.equation(block: false, alt: "not equal to")[$≠$], \<, \>, sign that is the same in the problem’s alternative hypothesis statement then press the \[ENTER\] key, arrow down to \[Calculate\] and press the \[ENTER\] key. The calculator returns the t-test statistic, the p-value, mean of the differences #math.equation(block: false, alt: "D bar equals x bar")[$overline(D) = overline(x)$] and standard deviation of the differences s#sub[D] = s#sub[x]. #figure(figph[TI-84 screens for a paired t-test: the list editor computes L3 = L1 - L2, producing differences -4, -4, 1, -3, -3, -1, 1; the TESTS menu highlights 2:T-Test; the input screen shows Inpt: Data, μ0: 0, List: L3, Freq: 1 with μ \< μ0 selected; and the output shows t = -2.7325, p = 0.0146, mean -2, Sx = 2.0702, n = 8.], alt: "TI-84 screens for a paired t-test: the list editor computes L3 = L1 - L2, producing differences -4, -4, 1, -3, -3, -1, 1; the TESTS menu highlights 2:T-Test; the input screen shows Inpt: Data, μ0: 0, List: L3, Freq: 1 with μ < μ0 selected; and the output shows t = -2.7325, p = 0.0146, mean -2, Sx = 2.0702, n = 8.", caption: none) #strong[TI-89:] Find the differences between the sample pairs (you can subtract two lists to do this). Go to the \[Apps\] #strong[Stat/List Editor], enter the two data sets in lists 1 and 2. Move the cursor so that it is highlighted on the header of list3. Press \[2#super[nd]\] Var-Link and move down to list1 and press \[Enter\]. This brings the name list1 back to the list3 at the bottom, select the minus \[-\] key, then select \[2#super[nd]\] Var-link and this time highlight list2 and press \[Enter\]. You should now see list1-list2 at the bottom of the window. Press \[Enter\] then the differences will be stored in list3. Press \[2#super[nd]\] then F6 \[Tests\], select #strong[2: T-Test]. Select the \[Data\] menu. Then type in the hypothesized mean as 0, List: list1, Freq:1, arrow over to the #math.equation(block: false, alt: "not equal to")[$≠$], \<, \>, and select the sign that is the same in the problem’s alternative hypothesis, press the \[ENTER\] key to calculate. The calculator returns the t-test statistic, p-value, #math.equation(block: false, alt: "D bar equals x bar")[$overline(D) = overline(x)$] and s#sub[D] = s#sub[x]. #figure(figph[TI-89 list editor screens for paired data: list1 and list2 hold the two samples, the VAR-LINK \[All\] menu shows the stored lists, and list3 is defined as list1 - list2, filling with the differences -4, -4, 1, -3, -3, -1.], alt: "TI-89 list editor screens for paired data: list1 and list2 hold the two samples, the VAR-LINK [All] menu shows the stored lists, and list3 is defined as list1 - list2, filling with the differences -4, -4, 1, -3, -3, -1.", caption: none) #figure(figph[TI-89 screens for a paired t-test: the Tests menu highlights 2:T-Test, a Choose Input Method dialog offers Data or Stats, and the T Test dialog shows μ0: 0, List: list3, Freq: 1 with the alternate hypothesis choices μ ≠ μ0, μ \< μ0, and μ \> μ0 listed.], alt: "TI-89 screens for a paired t-test: the Tests menu highlights 2:T-Test, a Choose Input Method dialog offers Data or Stats, and the T Test dialog shows μ0: 0, List: list3, Freq: 1 with the alternate hypothesis choices μ ≠ μ0, μ < μ0, and μ > μ0 listed.", caption: none) #strong[Excel:] Start by entering the data in two columns in the same order that they appear in the problem. Then select Data \> Data Analysis \> t-test: Paired Two Sample for Means, then select OK. Select the Before data (including the label) into the Variable 1 Range, and the After data (including the label) in the Variable 2 Range. Type in zero for the Hypothesized Mean Difference box. Select the box for Labels (do not select this if you do not have labels in the variable range selected). Change alpha to fit the problem. You can leave the default to open in a new worksheet or change output range to be one cell where you want the top left of the output table to start (make sure this cell does not overlap any existing data). Then select OK. See below for example. #figure(figph[Excel worksheet with Before and After data columns, the Data Analysis dialog with t-Test: Paired Two Sample for Means selected, and the test dialog showing Variable 1 Range \$A\$1:\$A\$9, Variable 2 Range \$B\$1:\$B\$9, Hypothesized Mean Difference 0, Labels checked, Alpha 0.05, and Output Range \$D\$1.], alt: "Excel worksheet with Before and After data columns, the Data Analysis dialog with t-Test: Paired Two Sample for Means selected, and the test dialog showing Variable 1 Range $A$1:$A$9, Variable 2 Range $B$1:$B$9, Hypothesized Mean Difference 0, Labels checked, Alpha 0.05, and Output Range $D$1.", caption: none) You get the following output: #figure(figph[Excel t-Test: Paired Two Sample for Means output with annotations: Before mean 8.25 and After mean 10.25, variances 5.0714 and 3.6429, 8 observations each, Pearson correlation 0.5152, df 7, t Stat -2.7325, one-tail p-value 0.0146, t critical one-tail 1.8946, two-tail p-value 0.0292, and t critical two-tail 2.3646.], alt: "Excel t-Test: Paired Two Sample for Means output with annotations: Before mean 8.25 and After mean 10.25, variances 5.0714 and 3.6429, 8 observations each, Pearson correlation 0.5152, df 7, t Stat -2.7325, one-tail p-value 0.0146, t critical one-tail 1.8946, two-tail p-value 0.0292, and t critical two-tail 2.3646.", caption: none) One nice feature in Excel is that you get the p-value and the critical value in the output. The critical value can be taken from the Excel output; however, Excel never gives negative critical values. Since we are doing a left-tailed test we will need to use the t-score = -1.8946. If we were to draw and shade the critical region for the sampling distribution, it would look like Figure 9 -2. #figure(figph[Normal curve with the left tail shaded below -1.8946, showing the rejection region for a left-tailed test on an axis running from about -4 to 4.], alt: "Normal curve with the left tail shaded below -1.8946, showing the rejection region for a left-tailed test on an axis running from about -4 to 4.", caption: [Figure 9-2]) The decision is made by comparing the test statistic t = -2.7325 with the critical value t#sub[α] = -1.8946. Since the test statistic is in the shaded critical region, we would reject H#sub[0]. At the 5% level of significance, there is enough evidence to support the claim that the mean production rate increases when music is played in the manufacturing area. The decision and summary should not change from using the p-value method. ] ] #strong[Confidence Interval Method] #notebox("Note", rgb("#8a94a6"), rgb("#556666"), rgb("#f7f8fa"))[ A (1 – #math.equation(block: false, alt: "α")[$α$])\*100% confidence interval for the difference between two population means with matched pairs: μ#sub[D] = mean of the differences. \\(\\bar{D}-t\_{\\frac{\\alpha}{2}}\\left(\\frac{s\_{D}}{\\sqrt{n}}\\right)\<\\mu\_{D}\<\\bar{D}+t\_{\\alpha / 2}\\left(\\frac{s\_{D}}{\\sqrt{n}}\\right)\\\] Or more compactly as #math.equation(block: false, alt: "D bar ± t sub α / 2 open parenthesis the fraction s sub D over the square root of n close parenthesis")[$overline(D) ± t_(α / 2) ( frac(s_(D), sqrt(n)) )$] Where the t-distribution has degrees of freedom, #emph[df] = #emph[n] – 1, where #emph[n] is the number of pairs. ] #examplebox("Example 3")[][ Hands-On Café records the number of online orders for eight randomly selected locations for two consecutive days. Assume the number of online orders is normally distributed. Find the 95% confidence interval for the mean difference. Is there evidence of a difference in mean number of orders for the two days? #notebox("Note", rgb("#8a94a6"), rgb("#556666"), rgb("#f7f8fa"))[ #emph[Build the paired interval instead of the test] The first link loads Thursday in L1 and Friday in L2; pick the matched-pairs interval at 95% to get (-3.4662, -0.0338) from D-bar = -1.75 and sD = 2.05287. The second link is the only lookup in the formula. Drop the level to 90% and watch the interval narrow while still missing 0 entirely -- the same verdict a two-tailed test would give. - Thursday in L1, Friday in L2 (8 locations) - invT(0.975,7) = 2.36462 ] Location 1 2 3 4 5 6 7 8 Thursday 67 65 68 68 68 70 69 70 Friday 68 70 69 71 72 69 70 70 #solutionbox[ First set up the hypotheses. We are testing to see if Thursday #math.equation(block: false, alt: "not equal to")[$≠$] Friday orders. The hypotheses would be: H#sub[0]: µ#sub[D] = 0 H#sub[1]: µ#sub[D] ≠ 0 Next, compute the \\(\\frac{t\_ ParseError: invalid DekiScript (click for details) Callstack: at (Bookshelves/Introductory\_Statistics/Mostly\_Harmless\_Statistics\_(Webb)/09:\_Hypothesis\_Tests\_and\_Confidence\_Intervals\_for\_Two\_Populations/9.01:\_Two\_Sample\_Mean\_T-Test\_for\_Dependent\_Groups), /content/body/section\[5\]/div/table/div/p\[4\]/span, line 1, column 1 \\) critical value for a 95% confidence interval and df = 7. Use the t-distribution with technology using confidence level 95%, lower tail area of #math.equation(block: false, alt: "α")[$α$]/2 = 0.025 to get t #math.equation(block: false, alt: "α")[$α$]/2 = t 0.025 = ±2.36462. Compute the differences of Thursday – Friday for each pair. #figure(table( columns: 9, align: left, inset: 6pt, table.header([#strong[Thursday]], [67], [65], [68], [68], [68], [70], [69], [70]), [#strong[Friday]], [68], [70], [69], [71], [72], [69], [70], [70], [#strong[D]], [–1], [–5], [–1], [–3], [–4], [1], [–1], [0], )) Use technology to compute the mean, standard deviation and sample size. Note if you use a TI calculator then #math.equation(block: false, alt: "D bar equals x bar")[$overline(D) = overline(x)$] and s#sub[D] = s#sub[x]. Find the interval estimate: #math.equation(block: false, alt: "D bar ± t sub the fraction α over 2 open parenthesis the fraction s sub D over the square root of n close parenthesis")[$overline(D) ± t_(frac(α, 2)) ( frac(s_(D), sqrt(n)) )$] \\(\\begin{aligned} #linebreak() &\\Rightarrow-1.75 \\pm 2.36462\\left(\\frac{2.05287}{\\sqrt{8}}\\right) \\\\ #linebreak() &\\Rightarrow-1.75 \\pm 1.7162 . #linebreak() \\end{aligned}\\) Write the answer using standard notation –3.4662 \< μ#sub[D] \< –0.0335 or interval notation (–3.4662, –0.0338). For an interpretation of the interval, if we were to use the same sampling techniques, approximately 95 out of 100 times the confidence interval (–3.4662, –0.0338) would contain the population mean difference in the number of orders between Thursday and Friday. Since both endpoints are negative, we can be 95% confident that the population mean number of orders for Thursday is between 3.4662 and 0.0338 orders lower than Friday. #strong[Excel:] Type in both samples in two adjacent columns, and then subtract each pair in a third column and label the column Difference. #figure(table( columns: 3, align: left, inset: 6pt, table.header([Thursday], [Friday], [Difference]), [67], [68], [=A2-B2], [65], [70], [=A3-B3], [68], [69], [=A4-B4], [68], [71], [=A5-B5], [68], [72], [=A6-B6], [70], [69], [=A7-B7], [69], [70], [=A8-B8], [70], [70], [=A9-B9], )) Select Data \> Data Analysis \> Descriptive Statistics and click OK. #figure(figph[Excel worksheet with Thursday, Friday, and Difference columns, the differences reading -1, -5, -1, -3, -4, 1, -1, 0, and the Data Analysis dialog open with Descriptive Statistics selected in the Analysis Tools list.], alt: "Excel worksheet with Thursday, Friday, and Difference columns, the differences reading -1, -5, -1, -3, -4, 1, -1, 0, and the Data Analysis dialog open with Descriptive Statistics selected in the Analysis Tools list.", caption: none) Select the Difference column for the input range including the label, then check the box next to Labels in first row (do not select this box if you did not highlight a label in the input range). Use the default new worksheet or select a single cell for the Output Range where you want your top left-hand corner of the table to start. Check the boxes Summary Statistics and Confidence Level for Mean. Change the confidence level to fit the question, and then select OK. #figure(figph[Excel Descriptive Statistics dialog with Input Range \$C\$1:\$C\$9, Grouped By Columns, Labels in first row checked, Output Range \$E\$1, and the Summary statistics and Confidence Level for Mean (95%) boxes checked.], alt: "Excel Descriptive Statistics dialog with Input Range $C$1:$C$9, Grouped By Columns, Labels in first row checked, Output Range $E$1, and the Summary statistics and Confidence Level for Mean (95%) boxes checked.", caption: none) You get the following output: #figure(figph[Excel descriptive statistics output for the Difference column: mean -1.75, standard error 0.7258, median -1, mode -1, standard deviation 2.0529, sample variance 4.2143, kurtosis -0.9009, skewness -0.4458, range 6, minimum -5, maximum 1, sum -14, count 8, and 95.0% confidence level 1.7162, annotated as the mean of the differences, their standard deviation, the number of pairs, and the margin of error.], alt: "Excel descriptive statistics output for the Difference column: mean -1.75, standard error 0.7258, median -1, mode -1, standard deviation 2.0529, sample variance 4.2143, kurtosis -0.9009, skewness -0.4458, range 6, minimum -5, maximum 1, sum -14, count 8, and 95.0% confidence level 1.7162, annotated as the mean of the differences, their standard deviation, the number of pairs, and the margin of error.", caption: none) The confidence interval is the mean ± margin of error. In two different cells subtract and then add the margin of error from the mean to get the confidence interval limits and then put your answer in interval notation (–3.4662, – 0.0338). #strong[TI-84:] First, find the differences between the samples. Then on the TI-83 press the \[STAT\] key, arrow over to the \[TESTS\] menu, arrow down to the \[8:TInterval\] option and press the \[ENTER\] key. Arrow over to the \[Data\] menu and press the \[ENTER\] key. The defaults are List: L1, Freq:1. If this is set with a different list, arrow down and use \[2#super[nd]\] \[1\] to get L1. Then type in the confidence level. Arrow down to \[Calculate\] and press the \[ENTER\] key. The calculator returns the confidence interval, #math.equation(block: false, alt: "D bar equals x bar")[$overline(D) = overline(x)$] and s#sub[D] = s#sub[x]. #strong[TI-89:] First, find the differences between the samples. Go to the \[Apps\] #strong[Stat/List Editor], then enter the differences into list 1. Press \[2#super[nd]\] then F7 \[Ints\], then select #strong[2: T-Interval]. Select the \[Data\] menu. Enter in List: list1, Freq:1. Then type in the confidence level. Press the \[ENTER\] key to calculate. The calculator returns the confidence interval, #math.equation(block: false, alt: "D bar equals x bar")[$overline(D) = overline(x)$] and s#sub[D] = s#sub[x]. ] ]