#set document(title: "6.5 Sampling Distribution and the Central Limit Theorem", 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")) == 6.5#h(0.6em)Sampling Distribution and the Central Limit Theorem You now have most of the skills to start statistical inference, but you need one more concept. First, it would be helpful to state what statistical inference is in more accurate terms. #notebox("Note", rgb("#8a94a6"), rgb("#556666"), rgb("#f7f8fa"))[ #emph[Statistical Inference] #strong[Statistical Inference]: to make accurate decisions about parameters from statistics. ] When it says “accurate decision,” you want to be able to measure how accurate. You measure how accurate using probability. In both binomial and normal distributions, you needed to know that the random variable followed either distribution. You need to know how the statistic is distributed and then you can find probabilities. In other words, you need to know the shape of the sample mean or whatever statistic you want to make a decision about. How is the statistic distributed? This is answered with a sampling distribution. #notebox("Note", rgb("#8a94a6"), rgb("#556666"), rgb("#f7f8fa"))[ #emph[Sampling Distribution] #strong[Sampling Distribution]: how a sample statistic is distributed when repeated trials of size #emph[n] are taken. ] #examplebox("Example 1")[sampling distribution][ Suppose you throw a penny and count how often a head comes up. The random variable is #emph[x]= number of heads. The probability distribution (pdf) of this random variable is presented in #emph[Figure #math.equation(block: false, alt: "1")[$1$]]. #figure(figph[Bar chart showing the probability distribution for the number of heads in one penny toss, with probabilities 0.5 for 0 heads and 0.5 for 1 head.], alt: "Bar chart showing the probability distribution for the number of heads in one penny toss, with probabilities 0.5 for 0 heads and 0.5 for 1 head.", caption: [Figure #math.equation(block: false, alt: "1")[$1$]: Distribution of Random Variable]) #solutionbox[ Repeat this experiment 10 times, which means #emph[n]= 10. Here is the data set: {1, 1, 1, 1, 0, 0, 0, 0, 0, 0}. The mean of this sample is 0.4. Now take another sample. Here is that data set: {1, 1, 1, 0, 1, 0, 1, 1, 0, 0}. The mean of this sample is 0.6. Another sample looks like: {0, 1, 0, 1, 1, 1, 1, 1, 0, 1}. The mean of this sample is 0.7. Repeat this 40 times. You could get these means: #figure(table( columns: 10, align: left, inset: 6pt, table.header([0.4], [0.6], [0.7], [0.3], [0.3], [0.2], [0.5], [0.5], [0.5], [0.5]), [0.4], [0.4], [0.5], [0.7], [0.7], [0.6], [0.4], [0.4], [0.4], [0.6], [0.7], [0.7], [0.3], [0.5], [0.6], [0.3], [0.3], [0.8], [0.3], [0.6], [0.4], [0.3], [0.5], [0.6], [0.5], [0.6], [0.3], [0.5], [0.6], [0.2], )) Example #math.equation(block: false, alt: "2")[$2$] contains the distribution of these sample means (just count how many of each number there are and then divide by 40 to obtain the relative frequency). #figure(table( columns: 2, align: left, inset: 6pt, table.header([Sample Mean], [Probability]), [0.1], [0], [0.2], [0.05], [0.3], [0.2], [0.4], [0.175], [0.5], [0.225], [0.6], [0.2], [0.7], [0.125], [0.8], [0.025], [0.9], [0], )) Figure #math.equation(block: false, alt: "2")[$2$]contains the histogram of these sample means. #figure(figph[Histogram of probabilities for sample means from 0.1 to 0.9, peaking at 0.5 with probability 0.225.], alt: "Histogram of probabilities for sample means from 0.1 to 0.9, peaking at 0.5 with probability 0.225.", caption: [Figure #math.equation(block: false, alt: "2")[$2$]: Histogram of Sample Means When n=10]) This distribution (represented graphically by the histogram) is a sampling distribution. That is all a sampling distribution is. It is a distribution created from statistics. Notice the histogram does not look anything like the histogram of the original random variable. It also doesn’t look anything like a normal distribution, which is the only one you really know how to find probabilities. Granted you have the binomial, but the normal is better. What does this distribution look like if instead of repeating the experiment 10 times you repeat it 20 times instead? Example #math.equation(block: false, alt: "3")[$3$] contains 40 means when the experiment of flipping the coin is repeated 20 times. #figure(table( columns: 10, align: left, inset: 6pt, table.header([0.5], [0.45], [0.7], [0.55], [0.65], [0.6], [0.4], [0.35], [0.45], [0.6]), [0.5], [0.5], [0.65], [0.5], [0.5], [0.35], [0.55], [0.4], [0.65], [0.3], [0.4], [0.5], [0.45], [0.45], [0.65], [0.7], [0.6], [0.5], [0.7], [0.7], [0.7], [0.45], [0.35], [0.6], [0.65], [0.55], [0.35], [0.4], [0.55], [0.6], )) Example #math.equation(block: false, alt: "3")[$3$] contains the sampling distribution of the sample means. #figure(table( columns: 2, align: left, inset: 6pt, table.header([Mean], [Probability]), [0.1], [0], [0.2], [0], [0.3], [0.125], [0.4], [0.2], [0.5], [0.3], [0.6], [0.25], [0.7], [0.125], [0.8], [0], [0.9], [0], )) This histogram of the sampling distribution is displayed in #emph[Figure #math.equation(block: false, alt: "3")[$3$]]. #figure(figph[Histogram of the probability distribution for the sample mean number of heads with n=20, peaking at probability 0.30 for a mean of 0.5.], alt: "Histogram of the probability distribution for the sample mean number of heads with n=20, peaking at probability 0.30 for a mean of 0.5.", caption: [Figure #math.equation(block: false, alt: "3")[$3$]: Histogram of Sample Means When n=20]) Notice this histogram of the sample mean looks approximately symmetrical and could almost be called normal. What if you keep increasing #emph[n]? What will the sampling distribution of the sample mean look like? In other words, what does the sampling distribution of #math.equation(block: false, alt: "x ―")[$limits(x)^(―)$] look like as #emph[n] gets even larger? ] ] This depends on how the original distribution is distributed. In Example #math.equation(block: false, alt: "1")[$1$], the random variable was uniform looking. But as #emph[n] increased to 20, the distribution of the mean looked approximately normal. What if the original distribution was normal? How big would #emph[n] have to be? Before that question is answered, another concept is needed. #notebox("Note", rgb("#8a94a6"), rgb("#556666"), rgb("#f7f8fa"))[ #emph[Note] Suppose you have a random variable that has a population mean, #math.equation(block: false, alt: "μ")[$μ$], and a population standard deviation, #math.equation(block: false, alt: "σ")[$σ$]. If a sample of size #emph[n] is taken, then the sample mean, #math.equation(block: false, alt: "x ―")[$limits(x)^(―)$] has a mean #math.equation(block: false, alt: "μ sub x ― equals μ")[$μ_(limits(x)^(―)) = μ$] and standard deviation of #math.equation(block: false, alt: "σ sub x ― equals the fraction σ over the square root of n")[$σ_(limits(x)^(―)) = frac(σ, sqrt(n))$]. The standard deviation of #math.equation(block: false, alt: "x ―")[$limits(x)^(―)$] is lower because by taking the mean you are averaging out the extreme values, which makes the distribution of the original random variable spread out. ] You now know the center and the variability of #math.equation(block: false, alt: "x ―")[$limits(x)^(―)$]. You also want to know the shape of the distribution of #math.equation(block: false, alt: "x ―")[$limits(x)^(―)$]. You hope it is normal, since you know how to find probabilities using the normal curve. The following theorem tells you the requirement to have #math.equation(block: false, alt: "x ―")[$limits(x)^(―)$] normally distributed. #notebox("Note", rgb("#8a94a6"), rgb("#556666"), rgb("#f7f8fa"))[ #emph[central limit theorem] Suppose a random variable is from any distribution. If a sample of size #emph[n] is taken, then the sample mean, #math.equation(block: false, alt: "x ―")[$limits(x)^(―)$], becomes normally distributed as #emph[n] increases. ] What this says is that no matter what #emph[x] looks like, #math.equation(block: false, alt: "x ―")[$limits(x)^(―)$] would look normal if #emph[n] is large enough. Now, what size of #emph[n] is large enough? That depends on how #emph[x] is distributed in the first place. If the original random variable is normally distributed, then #emph[n]just needs to be 2 or more data points. If the original random variable is somewhat mound shaped and symmetrical, then #emph[n]needs to be greater than or equal to 30. Sometimes the sample size can be smaller, but this is a good rule of thumb. The sample size may have to be much larger if the original random variable is really skewed one way or another. Now that you know when the sample mean will look like a normal distribution, then you can find the probability related to the sample mean. Remember that the mean of the sample mean is just the mean of the original data (#math.equation(block: false, alt: "μ sub x ― equals μ")[$μ_(limits(x)^(―)) = μ$] ), but the standard deviation of the sample mean, #math.equation(block: false, alt: "σ sub x ―")[$σ_(limits(x)^(―))$], also known as the standard error of the mean, is actually #math.equation(block: false, alt: "σ sub x ― equals the fraction σ over the square root of n")[$σ_(limits(x)^(―)) = frac(σ, sqrt(n))$]. Make sure you use this in all calculations. If you are using the z-score, the formula when working with #math.equation(block: false, alt: "x ―")[$limits(x)^(―)$] is #math.equation(block: false, alt: "z equals the fraction x ― minus μ sub x ― over σ sub x ― equals the fraction x ― minus μ over σ / the square root of n")[$z = frac(limits(x)^(―) − μ_(limits(x)^(―)), σ_(limits(x)^(―))) = frac(limits(x)^(―) − μ, σ / sqrt(n))$]. If you are using the TI-83/84 calculator, then the input would be normalcdf(lower limit, upper limit, #math.equation(block: false, alt: "μ")[$μ$], #math.equation(block: false, alt: "σ / the square root of n")[$σ / sqrt(n)$] ). If you are using R, then the input would be pnorm( #math.equation(block: false, alt: "x ― , μ , σ / sqrt open parenthesis n close parenthesis")[$limits(x)^(―) , μ , σ / op("sqrt") ( n )$]) to find the area to the left of #math.equation(block: false, alt: "x ―")[$limits(x)^(―)$]. Remember to subtract pnorm( #math.equation(block: false, alt: "x ― , μ , σ / sqrt open parenthesis n close parenthesis close parenthesis")[$limits(x)^(―) , μ , σ / op("sqrt") \( n \) \)$] ) from 1 if you want the area to the right of #math.equation(block: false, alt: "x ―")[$limits(x)^(―)$]. #examplebox("Example 2")[Finding probabilities for sample means][ The birth weight of boy babies of European descent who were delivered at 40 weeks is normally distributed with a mean of 3687.6 g with a standard deviation of 410.5 g (Janssen, Thiessen, Klein, Whitfield, MacNab & Cullis-Kuhl, 2007). Suppose there were nine European descent boy babies born on a given day and the mean birth weight is calculated. + State the random variable. + What is the mean of the sample mean? + What is the standard deviation of the sample mean? + What distribution is the sample mean distributed as? + Find the probability that the mean weight of the nine boy babies born was less than 3500.4 g. + Find the probability that the mean weight of the nine babies born was less than 3452.5 g. #solutionbox[ a. #emph[x] = birth weight of boy babies (Note: the random variable is something you measure, and it is not the mean birth weight. Mean birth weight is calculated.) b. #math.equation(block: false, alt: "μ sub x ― equals μ equals 3687.6 g")[$μ_(limits(x)^(―)) = μ = 3687.6 g$] c. #math.equation(block: false, alt: "σ sub x ― equals the fraction σ over the square root of n equals the fraction 410.5 over the square root of 9 equals the fraction 410.5 over 3 approximately equals 136.8 g")[$σ_(limits(x)^(―)) = frac(σ, sqrt(n)) = frac(410.5, sqrt(9)) = frac(410.5, 3) ≈ 136.8 g$] d. Since the original random variable is distributed normally, then the sample mean is distributed normally. e. You are looking for the #math.equation(block: false, alt: "P open parenthesis x ― less than 3500.4 close parenthesis")[$P ( limits(x)^(―) < 3500.4 )$]. You use the normalcdf command on the calculator. Remember to use the standard deviation you found in part c. However to reduce rounding error, type the division into the command. On the TI-83/84 you would have #math.equation(block: true, alt: "P open parenthesis x ― less than 3500.4 close parenthesis equals normalcdf open parenthesis minus 1 E 99 , 3500.4 , 3687.6 , 410.5 divided by the square root of 9 close parenthesis approximately equals 0.086")[$P ( limits(x)^(―) < 3500.4 ) = " normalcdf " ( − 1 E 99 , 3500.4 , 3687.6 , 410.5 ÷ sqrt(9) ) ≈ 0.086$] On R you would have #math.equation(block: true, alt: "P open parenthesis x ― less than 3500.4 close parenthesis equals pnorm open parenthesis 3500.4 , 3687.6 , 410.5 / s q r open parenthesis 9 close parenthesis close parenthesis approximately equals 0.086")[$P ( limits(x)^(―) < 3500.4 ) = " pnorm " ( 3500.4 , 3687.6 , 410.5 / s q r ( 9 ) ) ≈ 0.086$] There is an 8.6% chance that the mean birth weight of the nine boy babies born would be less than 3500.4 g. Since this is more than 5%, this is not unusual. f. You are looking for the #math.equation(block: false, alt: "P open parenthesis x ― less than 3452.5 close parenthesis")[$P ( limits(x)^(―) < 3452.5 )$]. On TI-83/84: #math.equation(block: true, alt: "P open parenthesis x ― less than 3452.5 close parenthesis equals normalcdf open parenthesis minus 1 E 99 , 3452.5 , 3687.6 , 410.5 divided by the square root of 9 close parenthesis approximately equals 0.043")[$P ( limits(x)^(―) < 3452.5 ) = " normalcdf " ( − 1 E 99 , 3452.5 , 3687.6 , 410.5 ÷ sqrt(9) ) ≈ 0.043$] On R: #math.equation(block: true, alt: "P open parenthesis x ― less than 3452.5 close parenthesis equals pnorm open parenthesis 3452.5 , 3687.6 , 410.5 divided by the square root of 9 close parenthesis approximately equals 0.043")[$P ( limits(x)^(―) < 3452.5 ) = " pnorm " ( 3452.5 , 3687.6 , 410.5 ÷ sqrt(9) ) ≈ 0.043$] pnorm(3452.5, 3687.6, 410.5/sqrt(9)) There is a 4.3% chance that the mean birth weight of the nine boy babies born would be less than 3452.5 g. Since this is less than 5%, this would be an unusual event. If it actually happened, then you may think there is something unusual about this sample. Maybe some of the nine babies were born as multiples, which brings the mean weight down, or some or all of the babies were not of European descent (in fact the mean weight of South Asian boy babies is 3452.5 g), or some were born before 40 weeks, or the babies were born at high altitudes. ] ] #examplebox("Example 3")[finding probabilities for sample means][ The age that American females first have intercourse is on average 17.4 years, with a standard deviation of approximately 2 years ("The Kinsey institute," 2013). This random variable is not normally distributed, though it is somewhat mound shaped. + State the random variable. + Suppose a sample of 35 American females is taken. Find the probability that the mean age that these 35 females first had intercourse is more than 21 years. #solutionbox[ a. #emph[x] = age that American females first have intercourse. b. Even though the original random variable is not normally distributed, the sample size is over 30, by the central limit theorem the sample mean will be normally distributed. The mean of the sample mean is #math.equation(block: false, alt: "μ sub x ― equals μ equals 17.4")[$μ_(limits(upright(x))^(―)) = μ = 17.4$] years. The standard deviation of the sample mean is #math.equation(block: false, alt: "σ sub x ― equals the fraction σ over the square root of n equals the fraction 2 over the square root of 35 approximately equals 0.33806")[$σ_(limits(x)^(―)) = frac(σ, sqrt(n)) = frac(2, sqrt(35)) ≈ 0.33806$]. You have all the information you need to use the normal command on your technology. Without the central limit theorem, you couldn’t use the normal command, and you would not be able to answer this question. On the TI-83/84: #math.equation(block: true, alt: "P open parenthesis x ― greater than 21 close parenthesis equals normalcdf open parenthesis 21 , 1 E 99 , 17.4 , 2 divided by the square root of 35 close parenthesis approximately equals 9.0 times 10 to the power minus 27")[$P ( limits(x)^(―) > 21 ) = " normalcdf " ( 21 , 1 E 99 , 17.4 , 2 ÷ sqrt(35) ) ≈ 9.0 × 10^(− 27)$] On R: #math.equation(block: true, alt: "P open parenthesis x ― greater than 21 close parenthesis equals 1 minus pnorm open parenthesis 21 , 17.4 , 2 / sqrt open parenthesis 35 close parenthesis close parenthesis approximately equals 9.0 times 10 to the power minus 27")[$P ( limits(x)^(―) > 21 ) = 1 − " pnorm " ( 21 , 17.4 , 2 / op("sqrt") ( 35 ) ) ≈ 9.0 × 10^(− 27)$] pnorm(21, 17.4, 2/sqrt(35)) The probability of a sample mean of 35 women being more than 21 years when they had their first intercourse is very small. This is extremely unlikely to happen. If it does, it may make you wonder about the sample. Could the population mean have increased from the 17.4 years that was stated in the article? Could the sample not have been random, and instead have been a group of women who had similar beliefs about intercourse? These questions, and more, are ones that you would want to ask as a researcher. ] ] === Homework #notebox("Your Turn", rgb("#8a94a6"), rgb("#556666"), rgb("#f7f8fa"))[ + A random variable is not normally distributed, but it is mound shaped. It has a mean of 14 and a standard deviation of 3. + If you take a sample of size 10, can you say what the shape of the sampling distribution for the sample mean is? Why? + For a sample of size 10, state the mean of the sample mean and the standard deviation of the sample mean. + If you take a sample of size 35, can you say what the shape of the distribution of the sample mean is? Why? + For a sample of size 35, state the mean of the sample mean and the standard deviation of the sample mean. + A random variable is normally distributed. It has a mean of 245 and a standard deviation of 21. + If you take a sample of size 10, can you say what the shape of the distribution for the sample mean is? Why? + For a sample of size 10, state the mean of the sample mean and the standard deviation of the sample mean. + For a sample of size 10, find the probability that the sample mean is more than 241. + If you take a sample of size 35, can you say what the shape of the distribution of the sample mean is? Why? + For a sample of size 35, state the mean of the sample mean and the standard deviation of the sample mean. + For a sample of size 35, find the probability that the sample mean is more than 241. + Compare your answers in part d and f. Why is one smaller than the other? + The mean starting salary for nurses is \$67,694 nationally ("Staff nurse -," 2013). The standard deviation is approximately \$10,333. The starting salary is not normally distributed but it is mound shaped. A sample of 42 starting salaries for nurses is taken. + State the random variable. + What is the mean of the sample mean? + What is the standard deviation of the sample mean? + What is the shape of the sampling distribution of the sample mean? Why? + Find the probability that the sample mean is more than \$75,000. + Find the probability that the sample mean is less than \$60,000. + If you did find a sample mean of more than \$75,000 would you find that unusual? What could you conclude? + According to the WHO MONICA Project the mean blood pressure for people in China is 128 mmHg with a standard deviation of 23 mmHg (Kuulasmaa, Hense & Tolonen, 1998). Blood pressure is normally distributed. + State the random variable. + Suppose a sample of size 15 is taken. State the shape of the distribution of the sample mean. + Suppose a sample of size 15 is taken. State the mean of the sample mean. + Suppose a sample of size 15 is taken. State the standard deviation of the sample mean. + Suppose a sample of size 15 is taken. Find the probability that the sample mean blood pressure is more than 135 mmHg. + Would it be unusual to find a sample mean of 15 people in China of more than 135 mmHg? Why or why not? + If you did find a sample mean for 15 people in China to be more than 135 mmHg, what might you conclude? + The size of fish is very important to commercial fishing. A study conducted in 2012 found the length of Atlantic cod caught in nets in Karlskrona to have a mean of 49.9 cm and a standard deviation of 3.74 cm (Ovegard, Berndt & Lunneryd, 2012). The length of fish is normally distributed. A sample of 15 fish is taken. + State the random variable. + Find the mean of the sample mean. + Find the standard deviation of the sample mean + What is the shape of the distribution of the sample mean? Why? + Find the probability that the sample mean length of the Atlantic cod is less than 52 cm. + Find the probability that the sample mean length of the Atlantic cod is more than 74 cm. + If you found sample mean length for Atlantic cod to be more than 74 cm, what could you conclude? + The mean cholesterol levels of women age 45-59 in Ghana, Nigeria, and Seychelles is 5.1 mmol/l and the standard deviation is 1.0 mmol/l (Lawes, Hoorn, Law & Rodgers, 2004). Assume that cholesterol levels are normally distributed. + State the random variable. + Find the probability that a woman age 45-59 in Ghana has a cholesterol level above 6.2 mmol/l (considered a high level). + Suppose doctors decide to test the woman’s cholesterol level again and average the two values. Find the probability that this woman’s mean cholesterol level for the two tests is above 6.2 mmol/l. + Suppose doctors being very conservative decide to test the woman’s cholesterol level a third time and average the three values. Find the probability that this woman’s mean cholesterol level for the three tests is above 6.2 mmol/l. + If the sample mean cholesterol level for this woman after three tests is above 6.2 mmol/l, what could you conclude? + In the United States, males between the ages of 40 and 49 eat on average 103.1 g of fat every day with a standard deviation of 4.32 g ("What we eat," 2012). The amount of fat a person eats is not normally distributed but it is relatively mound shaped. + State the random variable. + Find the probability that a sample mean amount of daily fat intake for 35 men age 40-59 in the U.S. is more than 100 g. + Find the probability that a sample mean amount of daily fat intake for 35 men age 40-59 in the U.S. is less than 93 g. + If you found a sample mean amount of daily fat intake for 35 men age 40-59 in the U.S. less than 93 g, what would you conclude? + A dishwasher has a mean life of 12 years with an estimated standard deviation of 1.25 years ("Appliance life expectancy," 2013). The life of a dishwasher is normally distributed. Suppose you are a manufacturer and you take a sample of 10 dishwashers that you made. + State the random variable. + Find the mean of the sample mean. + Find the standard deviation of the sample mean. + What is the shape of the sampling distribution of the sample mean? Why? + Find the probability that the sample mean of the dishwashers is less than 6 years. + If you found the sample mean life of the 10 dishwashers to be less than 6 years, would you think that you have a problem with the manufacturing process? Why or why not? Answer 1. a. See solutions, b. #math.equation(block: false, alt: "μ sub x ― equals 14")[$μ_(limits(upright(x))^(―)) = 14$], #math.equation(block: false, alt: "σ sub x ― equals 0.9487")[$σ_(limits(x)^(―)) = 0.9487$], c. See solutions, d. #math.equation(block: false, alt: "μ sub x ― equals 14")[$μ_(limits(upright(x))^(―)) = 14$], #math.equation(block: false, alt: "σ sub x ― equals 0.5071")[$σ_(limits(x)^(―)) = 0.5071$] 3. a. See solutions, b. #math.equation(block: false, alt: "μ sub x ― equals $ 67 , 694")[$μ_(limits(upright(x))^(―)) = \$ 67 , 694$], c. #math.equation(block: false, alt: "σ sub x ― equals $ 1594.42")[$σ_(limits(x)^(―)) = \$ 1594.42$], d. See solutions, e. #math.equation(block: false, alt: "P open parenthesis x ― greater than $ 75 , 000 close parenthesis equals 2.302 times 10 to the power minus 6")[$P ( limits(x)^(―) > \$ 75 , 000 ) = 2.302 × 10^(− 6)$], f. #math.equation(block: false, alt: "P open parenthesis x ― less than $ 60 , 000 close parenthesis equals 6.989 times 10 to the power minus 7")[$P ( limits(x)^(―) < \$ 60 , 000 ) = 6.989 × 10^(− 7)$], g. See solutions 5. a. See solutions, b. #math.equation(block: false, alt: "μ sub x ― equals 49.9 c m")[$μ_(limits(upright(x))^(―)) = 49.9 upright(c) upright(m)$], c. #math.equation(block: false, alt: "σ sub x ― equals 0.9657 c m")[$σ_(limits(x)^(―)) = 0.9657 upright(c) upright(m)$], d. See solutions, e. #math.equation(block: false, alt: "P open parenthesis x ― less than 52 c m close parenthesis equals 0.9852")[$P ( limits(x)^(―) < 52 upright(c) upright(m) ) = 0.9852$] f. #math.equation(block: false, alt: "P open parenthesis x ― greater than 74 c m close parenthesis approximately equals 0")[$P ( limits(x)^(―) > 74 upright(c) upright(m) ) ≈ 0$], g. See solutions 7. a. See solutions, b. #math.equation(block: false, alt: "P open parenthesis x ― greater than 100 g close parenthesis equals 0.99999")[$P ( limits(x)^(―) > 100 g ) = 0.99999$], c. #math.equation(block: false, alt: "P open parenthesis x ― less than 93 g close parenthesis approximately equals 0")[$P ( limits(x)^(―) < 93 g ) ≈ 0$] or #math.equation(block: false, alt: "8.22 times 10 to the power minus 44")[$8.22 × 10^(− 44)$], d. See solutions ] === Data Sources: #emph[Annual maximums of daily rainfall in Sydney]. (2013, September 25). Retrieved from #link("http://www.statsci.org/data/oz/sydrain.html")[http://www.statsci.org/data/oz/sydrain.html] #emph[Appliance life expectancy.] (2013, November 8). Retrieved from #link("http://www.mrappliance.com/expert/life-guide/")[http://www.mrappliance.com/expert/life-guide/] Bhat, R., & Kushtagi, P. (2006). A re-look at the duration of human pregnancy. #emph[Singapore Med J]., 47(12), 1044-8. Retrieved from #link("http://www.ncbi.nlm.nih.gov/pubmed/17139400")[http://www.ncbi.nlm.nih.gov/pubmed/17139400] College Board, SAT. (2012). #emph[Total group profile report]. Retrieved from website: media.collegeboard.com/digita...lGroup2012.pdf Greater Cleveland Regional Transit Authority, (2012). 2012 #emph[annual report]. Retrieved from website: #link("http://www.riderta.com/annual/2012")[http://www.riderta.com/annual/2012] Janssen, P. A., Thiessen, P., Klein, M. C., Whitfield, M. F., MacNab, Y. C., & CullisKuhl, S. C. (2007). Standards for the measurement of birth weight, length and head circumference at term in neonates of european, chinese and south asian ancestry. #emph[Open Medicine], 1(2), e74-e88. Retrieved from #link("http://www.ncbi.nlm.nih.gov/pmc/articles/PMC2802014/")[http://www.ncbi.nlm.nih.gov/pmc/articles/PMC2802014/] #emph[Kiama blowhole eruptions.] (2013, September 25). Retrieved from #link("http://www.statsci.org/data/oz/kiama.html")[http://www.statsci.org/data/oz/kiama.html] Kuulasmaa, K., Hense, H., & Tolonen, H. World Health Organization (WHO), WHO Monica Project. (1998). #emph[Quality assessment of data on blood pressure in the who monica project] (ISSN 2242-1246). Retrieved from WHO MONICA Project e-publications website: #link("http://www.thl.fi/publications/monica/bp/bpqa.htm")[http://www.thl.fi/publications/monica/bp/bpqa.htm] Lawes, C., Hoorn, S., Law, M., & Rodgers, A. (2004). High cholesterol. In M. Ezzati, A. Lopez, A. Rodgers & C. Murray (Eds.), #emph[Comparative Quantification of Health Risks] (1 ed., Vol. 1, pp. 391-496). Retrieved from #link("http://www.who.int/publications/cra/chapters/volume1/0391-0496.pdf")[http://www.who.int/publications/cra/.../0391-0496.pdf] Ovegard, M., Berndt, K., & Lunneryd, S. (2012). Condition indices of atlantic cod (gadus morhua) biased by capturing method. #emph[ICES Journal of Marine Science], doi: 10.1093/icesjms/fss145 #emph[Staff nurse - RN salary]. (2013, November 08). Retrieved from #link("http://www1.salary.com/Staff-Nurse-RN-salary.html")[http://www1.salary.com/Staff-Nurse-RN-salary.html] #emph[The Kinsey institute - sexuality information links]. (2013, November 08). Retrieved from www.iub.edu/~kinsey/resources/FAQ.html US Department of Argriculture, Agricultural Research Service. (2012). #emph[What we eat in America]. Retrieved from website: #link("http://www.ars.usda.gov/Services/docs.htm?docid=18349")[http://www.ars.usda.gov/Services/docs.htm?docid=18349]