#set document(title: "1.6 Linear Regression", author: "OpenStax / XYZ Homework") #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")) == 1.6#h(0.6em)Linear Regression We have spent most of this chapter analyzing models described by graphs or equations. To create a model, however, we often start with a quantity of data. Choosing an appropriate function for a model is a complicated process. In this section, we consider only linear models and explore methods for fitting a linear function to a collection of data points. First, we fit a line through two data points. === Fitting a Line through Two Points If we already know that two variables are related by a linear function, we can find a formula from just two data points. For example, variables that increase or decrease at a constant rate can be described by linear functions. #examplebox("Example 1")[][ In 1993, Americans drank 188.6 million cases of wine. Wine consumption increased at a constant rate over the next decade, and we drank 258.3 million cases of wine in 2003. (Source: Los Angeles Times, Adams Beverage Group) + Find a formula for wine consumption, #math.equation(block: false, alt: "W")[$W$], in millions of cases, as a linear function of time, #math.equation(block: false, alt: "t")[$t$], in years since 1990. + State the slope as a rate of change. What does the slope tell us about wine consumption? #solutionbox[ + We have two data points of the form #math.equation(block: false, alt: "open parenthesis t , W close parenthesis")[$( t , W )$], namely #math.equation(block: false, alt: "open parenthesis 3 , 188.6 close parenthesis")[$( 3 , 188.6 )$] and #math.equation(block: false, alt: "open parenthesis 13 , 258.3 close parenthesis")[$( 13 , 258.3 )$]. We use the point-slope formula to fit a line through these two points. First, we compute the slope. #math.equation(block: true, alt: "the fraction Δ W over Δ t equals the fraction 258.3 minus 188.6 over 13 minus 3 equals 6.97")[$frac(upright(Δ) W, upright(Δ) t) = frac(258.3 − 188.6, 13 − 3) = 6.97$] Next, we use the slope #math.equation(block: false, alt: "m equals 6.97")[$m = 6.97$] and either of the two data points in the point-slope formula. #math.equation(block: true, alt: "W, equals W sub 1 plus m open parenthesis t minus t sub 1 close parenthesis; W, equals 188.6 plus 6.97 open parenthesis t minus 3 close parenthesis; W, equals 167.69 plus 6.97 t")[$W & = W_(1) + m ( t − t_(1) ) \ W & = 188.6 + 6.97 ( t − 3 ) \ W & = 167.69 + 6.97 t$] Thus, #math.equation(block: false, alt: "W equals f open parenthesis t close parenthesis equals 167.69 plus 6.97 t")[$W = f ( t ) = 167.69 + 6.97 t$]. + The slope gives us the rate of change of the function, and the units of the variables can help us interpret the slope in context. #math.equation(block: true, alt: "the fraction Δ W over Δ t equals the fraction open parenthesis 258.3 minus 188.6 close parenthesis million cases over open parenthesis 13 minus 3 close parenthesis years equals 6.97 million cases / year")[$frac(upright(Δ) W, upright(Δ) t) = frac(( 258.3 − 188.6 ) " million cases", ( 13 − 3 ) " years") = 6.97 " million cases / year"$] Over the 10 years between 1993 and 2003, wine consumption in the United States increased at a rate of 6.97 million cases per year. ] ] #notebox("Note", rgb("#8a94a6"), rgb("#556666"), rgb("#f7f8fa"))[ #emph[To Fit a Line through Two Points] + Compute the slope between the two points. + Substitute the slope and either point into the point-slope formula #math.equation(block: true, alt: "y equals y sub 1 plus m open parenthesis x minus x sub 1 close parenthesis")[$y = y_(1) + m ( x − x_(1) )$] ] In 1991, there were 64.6 burglaries per 1000 households in the United States. The number of burglaries reported annually declined at a roughly constant rate over the next decade, and in 2001 there were 28.7 burglaries per 1000 households. (Source: U.S. Department of Justice) + Find a function for the number of burglaries, #math.equation(block: false, alt: "B")[$B$], as a function of time, #math.equation(block: false, alt: "t")[$t$], in years, since 1990. #linebreak() #math.equation(block: false, alt: "y equals")[$y =$]\_\_\_\_\_ + State the slope as a rate of change. #linebreak() #math.equation(block: false, alt: "m")[$m$] is \_\_\_\_\_\_\_\_\_\_ #linebreak() What does the slope tell us about this problem? #linebreak() \_\_\_\_\_ #linebreak() (in the years 1991 to 2001). #solutionbox[ + Because #math.equation(block: false, alt: "t equals 0")[$t = 0$] corresponds to 1990, we have the two points #math.equation(block: false, alt: "open parenthesis 1 , 64.6 close parenthesis")[$( 1 , 64.6 )$] and #math.equation(block: false, alt: "open parenthesis 11 , 28.7 close parenthesis")[$( 11 , 28.7 )$] to compute the slope #math.equation(block: false, alt: "m equals m")[$m = "m"$]. Using the point-slope formula with either point and then simplifying, we find that #math.equation(block: false, alt: "y equals func")[$y = "func"$] + #math.equation(block: false, alt: "minus 3.59")[$− 3.59$] burglaries per 1000 households per year. From 1991 to 2001, the burglary rate declined by 3.59 burglaries per 1000 households every year. ] In 1991, there were 64.6 burglaries per 1000 households in the United States. The number of burglaries reported annually declined at a roughly constant rate over the next decade, and in 2001 there were 28.7 burglaries per 1000 households. (Source: U.S. Department of Justice) + Find a function for the number of burglaries, #math.equation(block: false, alt: "B")[$B$], as a function of time, #math.equation(block: false, alt: "t")[$t$], in years, since 1990. + State the slope as a rate of change. What does the slope tell us about burglaries? #solutionbox[ + Because #math.equation(block: false, alt: "t equals 0")[$t = 0$] corresponds to 1990, we have the two points #math.equation(block: false, alt: "open parenthesis 1 , 64.6 close parenthesis")[$( 1 , 64.6 )$] and #math.equation(block: false, alt: "open parenthesis 11 , 28.7 close parenthesis")[$( 11 , 28.7 )$] to compute the slope #math.equation(block: false, alt: "m equals minus 3.59")[$m = − 3.59$]. Using the point-slope formula with either point and then simplifying, we find that #math.equation(block: false, alt: "B equals 68.19 minus 3.59 t")[$B = 68.19 − 3.59 t$] + #math.equation(block: false, alt: "minus 3.59")[$− 3.59$] burglaries per 1000 households per year. From 1991 to 2001, the burglary rate declined by 3.59 burglaries per 1000 households every year. ] What are the two steps to find the equation of a line through two points? \_\_\_\_\_ #solutionbox[ Compute the slope, use the point-slope formula ] What are the two steps to find the equation of a line through two points? + Draw the line, use the point-slope formula + Compute the slope, find the #math.equation(block: false, alt: "y")[$y$]-intercept + Compute the slope, use the point-slope formula + Find the intercepts, compute the slope === Scatterplots Empirical data points in a linear relation may not lie exactly on a line. There are many factors that can affect experimental data, including measurement error, the influence of environmental conditions, and the presence of related variable quantities. #examplebox("Example 2")[][ A consumer group wants to test the gas mileage of a new model SUV. They test-drive six vehicles under similar conditions and record the distance each drove on various amounts of gasoline. #notebox("Try it in XYZ Crunch", rgb("#8a94a6"), rgb("#556666"), rgb("#f7f8fa"))[ #emph[Fit the SUV data by least squares] The six test drives are pre-loaded: gallons in L1, miles in L2. The example estimates a line through the scatterplot by eye and reads off a slope of about 17.2 miles per gallon. Run the regression to get the least-squares line the section's later examples rely on - its slope is close to the eyeball estimate, and you can judge from the scatterplot how much the six points scatter around either line. - Linear fit of the SUV data: ŷ = −12.97 + 17.42x, r ≈ 0.998 ] #figure(table( columns: 7, align: left, inset: 6pt, table.header([Gasoline used (gal)], [#math.equation(block: false, alt: "9.6")[$9.6$]], [#math.equation(block: false, alt: "11.3")[$11.3$]], [#math.equation(block: false, alt: "8.8")[$8.8$]], [#math.equation(block: false, alt: "5.2")[$5.2$]], [#math.equation(block: false, alt: "10.3")[$10.3$]], [#math.equation(block: false, alt: "6.7")[$6.7$]]), [Miles driven], [#math.equation(block: false, alt: "155.8")[$155.8$]], [#math.equation(block: false, alt: "183.6")[$183.6$]], [#math.equation(block: false, alt: "139.6")[$139.6$]], [#math.equation(block: false, alt: "80.4")[$80.4$]], [#math.equation(block: false, alt: "167.1")[$167.1$]], [#math.equation(block: false, alt: "99.7")[$99.7$]], )) + Are the data linear? + Draw a line that fits the data. + What does the slope of the line tell us about the data? #solutionbox[ + No, the data are not strictly linear. If we compute the slopes between successive data points, the values are not constant. We can see from an accurate plot of the data, shown below, that the points lie close to, but not precisely on, a straight line.#figure(figph[gas mileage data points], alt: "gas mileage data points", caption: none) #figure(figph[regression line for gas mileage data], alt: "regression line for gas mileage data", caption: none) + We would like to draw a line that comes as close as possible to all the data points, even though it may not pass precisely through any of them. In particular, we try to adjust the line so that we have the same number of data points above the line and below the line. One possible solution is shown above. + To compute the slope of the our estimated line, we first choose two points on the line. Our line appears to pass through one of the data points,#math.equation(block: false, alt: "open parenthesis 8.8 , 139.6 close parenthesis")[$( 8.8 , 139.6 )$]. We look for a second point on the line whose coordinates are easy to read, perhaps #math.equation(block: false, alt: "open parenthesis 6.5 , 100 close parenthesis")[$( 6.5 , 100 )$]. The slope is #math.equation(block: true, alt: "m equals the fraction 139.6 minus 100 over 8.8 minus 6.5 equals 17.2 miles per gallon")[$m = frac(139.6 − 100, 8.8 − 6.5) = 17.2 " miles per gallon"$] According to our data, the SUV gets about 17.2 miles to the gallon. ] ] #notebox("Caution", rgb("#8a94a6"), rgb("#556666"), rgb("#f7f8fa"))[ To find the slope of your estimated line, be sure to choose points #emph[on the line]; do not choose any of the data points (unless they happen to lie on your line). ] + Plot the data points. Do the points lie on a line? #linebreak() \_\_\_\_\_ + Draw a line that fits the data. #figure(table( columns: 7, align: left, inset: 6pt, table.header([#math.equation(block: false, alt: "x")[$x$]], [#math.equation(block: false, alt: "1.49")[$1.49$]], [#math.equation(block: false, alt: "3.68")[$3.68$]], [#math.equation(block: false, alt: "4.95")[$4.95$]], [#math.equation(block: false, alt: "5.49")[$5.49$]], [#math.equation(block: false, alt: "7.88")[$7.88$]], [#math.equation(block: false, alt: "8.41")[$8.41$]]), [#math.equation(block: false, alt: "y")[$y$]], [#math.equation(block: false, alt: "2.69")[$2.69$]], [#math.equation(block: false, alt: "3.7")[$3.7$]], [#math.equation(block: false, alt: "4.6")[$4.6$]], [#math.equation(block: false, alt: "5.2")[$5.2$]], [#math.equation(block: false, alt: "7.2")[$7.2$]], [#math.equation(block: false, alt: "7.3")[$7.3$]], )) #solutionbox[ + No. A scatterplot is shown below. + See the graph below ] Graphs for both parts (a) and (b): + #figure(figph[scatterplot], alt: "scatterplot", caption: none) + #figure(figph[scatterplot with regression line], alt: "scatterplot with regression line", caption: none) + Plot the data points. Do the points lie on a line? + Draw a line that fits the data. #figure(table( columns: 7, align: left, inset: 6pt, table.header([#math.equation(block: false, alt: "x")[$" " x " "$]], [#math.equation(block: false, alt: "1.49")[$1.49$]], [#math.equation(block: false, alt: "3.68")[$3.68$]], [#math.equation(block: false, alt: "4.95")[$4.95$]], [#math.equation(block: false, alt: "5.49")[$5.49$]], [#math.equation(block: false, alt: "7.88")[$7.88$]], [#math.equation(block: false, alt: "8.41")[$8.41$]]), [#math.equation(block: false, alt: "y")[$" " y " "$]], [#math.equation(block: false, alt: "2.69")[$2.69$]], [#math.equation(block: false, alt: "3.7")[$3.7$]], [#math.equation(block: false, alt: "4.6")[$4.6$]], [#math.equation(block: false, alt: "5.2")[$5.2$]], [#math.equation(block: false, alt: "7.2")[$7.2$]], [#math.equation(block: false, alt: "7.3")[$7.3$]], )) #solutionbox[ + #figure(figph[scatterplot], alt: "scatterplot", caption: none) #linebreak() No, the points do not lie on a line. + #figure(figph[scatterplot with regression line], alt: "scatterplot with regression line", caption: none) ] The graph in Example is called a #strong[scatterplot]. The points on a scatterplot may or may not show some sort of pattern. Consider the three plots shown below. - In figure (a), the data points resemble a cloud of gnats; there is no apparent pattern to their locations. - In figure (b), the data follow a generally decreasing trend, but certainly do not all lie on the same line. - The points in figure (c) are even more organized; they seem to lie very close to an imaginary line. #figure(figph[three scatterplots], alt: "three scatterplots", caption: none) Can two points on a scatterplot have the same #math.equation(block: false, alt: "x")[$x$]-coordinate? Can two points have the same #math.equation(block: false, alt: "y")[$y$]-coordinate? \_\_\_\_\_ #solutionbox[ Yes, Yes ] Can two points on a scatterplot have the same #math.equation(block: false, alt: "x")[$x$]-coordinate? Can two points have the same #math.equation(block: false, alt: "y")[$y$]-coordinate? If the data in a scatterplot are roughly linear, we can estimate the location of an imaginary #strong[line of best fit] that passes as close as possible to the data points. We can then use this line to make predictions about the data. === Linear Regression One measure of a person's physical fitness is the #emph[body mass index], or BMI. Your BMI is the ratio of your weight in kilograms to the square of your height in centimeters. Thus, thinner people have lower BMI scores, and fatter people have higher scores. The Centers for Disease Control considers a BMI between 18.5 and 24.9 to be healthy. The points on the scatterplot below show the BMI of Miss America from 1921 to 1991. From the data in the scatterplot, can we see a trend in Americans’ ideal of female beauty? #figure(figph[Miss America BMI scatterplot], alt: "Miss America BMI scatterplot", caption: none) #examplebox("Example 3")[][ + Estimate a line of best fit for the scatterplot above. (Source: http://www.pbs.org) + Use your line to estimate the BMI of Miss America 1980. #solutionbox[ + We draw a line that fits the data points as best we can, as shown below. (Note that we have set #math.equation(block: false, alt: "t equals 0")[$t = 0$] in 1920 on this graph.) We try to end up with roughly equal numbers of data points above and below our line.#figure(figph[Miss America BMI regression line], alt: "Miss America BMI regression line", caption: none) + We see that when #math.equation(block: false, alt: "t equals 60")[$t = 60$] on this line, the #math.equation(block: false, alt: "y")[$y$]-value is approximately 18.3. We therefore estimate that Miss America 1980 had a BMI of 18.3. (Her actual BMI was 17.85.) ] ] We can estimate a line of best fit by drawing the line that passes through: \_\_\_\_\_ #solutionbox[ None of these ] We can estimate a line of best fit by drawing the line that passes through: + The first and last data points + Two data points in the middle + Either of these + None of these #figure(figph[hominid brains scatterplot], alt: "hominid brains scatterplot", caption: none) Human brains consume a large amount of energy, about 16 times as much as muscle tissue per unit weight. In fact, brain metabolism accounts for about 25% of an adult human's energy needs, as compared to about 5% for other mammals. As hominid species evolved, their brains required larger and larger amounts of energy, as shown in the figure. (Source: Scientific American, December 2002.) + Draw a line of best fit through the data points. + Estimate the amount of energy used by the brain of a hominid species that lived three million years ago. #linebreak() \_\_\_\_\_% #solutionbox[ + A graph is below. + About 10.5% ] A graph for part (a): #figure(figph[scatterplot with regression line], alt: "scatterplot with regression line", caption: none) Human brains consume a large amount of energy, about 16 times as much as muscle tissue per unit weight. In fact, brain metabolism accounts for about 25% of an adult human's energy needs, as compared to about 5% for other mammals. As hominid species evolved, their brains required larger and larger amounts of energy, as shown in the figure. (Source: Scientific American, December 2002.) #figure(figph[hominid brains scatterplot], alt: "hominid brains scatterplot", caption: none) + Draw a line of best fit through the data points. + Estimate the amount of energy used by the brain of a hominid species that lived three million years ago. #solutionbox[ + #figure(figph[scatterplot with regression line], alt: "scatterplot with regression line", caption: none) + About 10.5% ] The process of predicting an output value based on a straight line that fits the data is called #strong[linear regression], and the line itself is called the #strong[regression line]. The equation of the regression line is usually used (instead of a graph) to predict values. #examplebox("Example 4")[][ + Find the equation of the regression line in Example. + Use the regression equation to predict the BMI of Miss America 1980. #solutionbox[ + We first calculate the slope by choosing two points on the regression line. The points we choose are not necessarily any of the original data points; instead they should be points on the regression line itself. The line appears to pass through the points #math.equation(block: false, alt: "open parenthesis 17 , 20 close parenthesis")[$( 17 , 20 )$] and #math.equation(block: false, alt: "open parenthesis 67 , 18 close parenthesis")[$( 67 , 18 )$]. The slope of the line is then #math.equation(block: true, alt: "m equals the fraction 18 minus 20 over 67 minus 17 approximately equals minus 0.04")[$m = frac(18 − 20, 67 − 17) ≈ − 0.04$] Now we use the point-slope formula to find the equation of the line. (If you would like to review the point-slope formula, see Linear Functions.) We substitute #math.equation(block: false, alt: "m equals minus 0.04")[$m = − 0.04$] and use either of the two points for #math.equation(block: false, alt: "open parenthesis x sub 1 , y sub 1 close parenthesis")[$( x_(1) , y_(1) )$]; we will choose #math.equation(block: false, alt: "open parenthesis 17 , 20 close parenthesis")[$( 17 , 20 )$]. The equation of the regression line is #math.equation(block: true, alt: "y, equals y sub 1 plus m open parenthesis x minus x sub 1 close parenthesis; y, equals 20 minus 0.04 open parenthesis x minus 17 close parenthesis, Simplify.; y, equals 20.68 minus 0.04 t")[$y & = y_(1) + m ( x − x_(1) ) \ y & = 20 − 0.04 ( x − 17 ) & & "Simplify." \ y & = 20.68 − 0.04 t$] + We will use the regression equation to make our prediction. For Miss America 1980, #math.equation(block: false, alt: "t equals 60")[$t = 60$] and #math.equation(block: true, alt: "y equals 20.68 minus 0.04 open parenthesis 60 close parenthesis equals 18.28")[$y = 20.68 − 0.04 ( 60 ) = 18.28$] This value agrees well with the estimate we made in Example. ] ] How many data points must a good regression line pass through? \_\_\_\_\_ #solutionbox[ None: the regression line does not need to pass through any of the data points. ] How many data points must a good regression line pass through? + Three + Two + One + None #figure(figph[manatee deaths], alt: "manatee deaths", caption: none) The number of manatees killed by watercraft in Florida waters has been increasing since 1975. Data are given at 5-year intervals in the table. (Source: Florida Fish and Wildlife Conservation Commission) #figure(table( columns: 2, align: left, inset: 6pt, table.header([Year], [Manatee deaths]), [#math.equation(block: false, alt: "1975")[$1975$]], [#math.equation(block: false, alt: "6")[$6$]], [#math.equation(block: false, alt: "1980")[$1980$]], [#math.equation(block: false, alt: "16")[$16$]], [#math.equation(block: false, alt: "1985")[$1985$]], [#math.equation(block: false, alt: "33")[$33$]], [#math.equation(block: false, alt: "1990")[$1990$]], [#math.equation(block: false, alt: "47")[$47$]], [#math.equation(block: false, alt: "1995")[$1995$]], [#math.equation(block: false, alt: "42")[$42$]], [#math.equation(block: false, alt: "2000")[$2000$]], [#math.equation(block: false, alt: "78")[$78$]], )) + Draw a regression line through the data points shown in the figure. + Find an equation for the regression line, using #math.equation(block: false, alt: "t approximately equals 0")[$t ≈ 0$] in 1975. #linebreak() #math.equation(block: false, alt: "y equals")[$y =$]\_\_\_\_\_ + Use the regression equation to estimate the number of manatees killed by watercraft in 1998. #linebreak() \_\_\_\_\_ manatees #solutionbox[ + A graph is below. + #math.equation(block: false, alt: "y equals f")[$y = "f"$] + killed ] A graph for part (a) is below. #figure(figph[scatterplot with regression line], alt: "scatterplot with regression line", caption: none) The number of manatees killed by watercraft in Florida waters has been increasing since 1975. Data are given at 5-year intervals in the table. (Source: Florida Fish and Wildlife Conservation Commission) #figure(table( columns: 2, align: left, inset: 6pt, table.header([Year], [Manatee deaths]), [#math.equation(block: false, alt: "1975")[$1975$]], [#math.equation(block: false, alt: "6")[$6$]], [#math.equation(block: false, alt: "1980")[$1980$]], [#math.equation(block: false, alt: "16")[$16$]], [#math.equation(block: false, alt: "1985")[$1985$]], [#math.equation(block: false, alt: "33")[$33$]], [#math.equation(block: false, alt: "1990")[$1990$]], [#math.equation(block: false, alt: "47")[$47$]], [#math.equation(block: false, alt: "1995")[$1995$]], [#math.equation(block: false, alt: "42")[$42$]], [#math.equation(block: false, alt: "2000")[$2000$]], [#math.equation(block: false, alt: "78")[$78$]], )) #figure(figph[manatee deaths], alt: "manatee deaths", caption: none) + Draw a regression line through the data points shown in the figure. + Find an equation for the regression line, using #math.equation(block: false, alt: "t approximately equals 0")[$t ≈ 0$] in 1975. + Use the regression equation to estimate the number of manatees killed by watercraft in 1998. #solutionbox[ + #figure(figph[scatterplot with regression line], alt: "scatterplot with regression line", caption: none) + #math.equation(block: false, alt: "y equals 4.7 plus 6.2 t")[$y = 4.7 + 6.2 t$] + 65 manatees ] Describe a strategy for sketching a line of best fit by eye. \_\_\_\_\_ Describe a strategy for sketching a line of best fit by eye. === Linear Interpolation and Extrapolation Using a regression line to estimate values between known data points is called #strong[interpolation]. Making predictions beyond the range of known data is called #strong[extrapolation]. #examplebox("Example 5")[][ + Use linear interpolation to estimate the BMI of Miss America 1960. + Use linear extrapolation to predict the BMI of Miss America 2001. #solutionbox[ + For 1960, we substitute #math.equation(block: false, alt: "t equals 40")[$t = 40$] into the regression equation we found in Example. #math.equation(block: true, alt: "y equals 20.68 minus 0.04 open parenthesis 40 close parenthesis equals 19.08")[$y = 20.68 − 0.04 ( 40 ) = 19.08$] We estimate that Miss America 1960 had a BMI of 19.08. (Her BMI was actually 18.79.) + For 2001, we substitute #math.equation(block: false, alt: "t equals 81")[$t = 81$] into the regression equation. #math.equation(block: true, alt: "y equals 20.68 minus 0.04 open parenthesis 81 close parenthesis equals 17.44")[$y = 20.68 − 0.04 ( 81 ) = 17.44$] Our model predicts that Miss America 2001 had a BMI of 17.44. In fact, her BMI was 20.25. By the late 1990s, public concern over the self-image of young women had led to a reversal of the trend toward ever-thinner role models. ] ] Exampleb illustrates an important fact about extrapolation: If we try to extrapolate too far, we may get unreasonable results. For example, if we use our model to predict the BMI of Miss America 2520 (when #math.equation(block: false, alt: "t equals 600")[$t = 600$]), we get #math.equation(block: true, alt: "y equals 20.68 minus 0.04 open parenthesis 600 close parenthesis equals minus 3.32")[$y = 20.68 − 0.04 ( 600 ) = − 3.32$] Even if the Miss America pageant is still operating in 600 years, the winner cannot have a negative BMI. Our linear model provides a fair approximation for 1920–1990, but if we try to extrapolate too far beyond the known data, the model may no longer apply. We can also use interpolation and extrapolation to make estimates for nonlinear functions. Sometimes a variable relationship is not linear, but a portion of its graph can be approximated by a line. #figure(figph[height versus age graph], alt: "height versus age graph", caption: none) For example, the graph at right shows a child’s height each month. The graph is not linear because her rate of growth is not constant; her growth slows down as she approaches her adult height. However, over a short time interval the graph is close to a line, and that line can be used to approximate the coordinates of points on the curve. If you add more data points to the scatterplot, could the regression line change? \_\_\_\_\_ #solutionbox[ Yes ] If you add more data points to the scatterplot, could the regression line change? + Yes + No + Only the slope could change. + Only the intercept could change. Emily was 82 centimeters tall at age 36 months and 88 centimeters tall at age 48 months. + Find a linear equation that approximates Emily's height in terms of her age over the given time interval. Let #math.equation(block: false, alt: "t")[$t$] be Emily's age in months. #linebreak() #math.equation(block: false, alt: "y equals")[$y =$]\_\_\_\_\_ + Use linear interpolation to estimate Emily's height when she was 38 months old, and extrapolate to predict her height at age 50 months. #linebreak() Age 38 months: \_\_\_\_\_ cm #linebreak() Age 50 months: \_\_\_\_\_ cm + Predict Emily's height at age 25 (300 months). #linebreak() Age 25 years: \_\_\_\_\_ cm #linebreak() Is your answer reasonable? \_\_\_\_\_ #solutionbox[ + #math.equation(block: false, alt: "y equals 64 plus 0.5 t")[$y = 64 + 0.5 t$] + #math.equation(block: false, alt: "83")[$83$] cm, #math.equation(block: false, alt: "89")[$89$] cm + #math.equation(block: false, alt: "214")[$214$] cm; No ] Emily was 82 centimeters tall at age 36 months and 88 centimeters tall at age 48 months. + Find a linear equation that approximates Emily's height in terms of her age over the given time interval. Let #math.equation(block: false, alt: "t")[$t$] be Emily's age in months. + Use linear interpolation to estimate Emily's height when she was 38 months old, and extrapolate to predict her height at age 50 months. + Predict Emily's height at age 25 (300 months). Is your answer reasonable? #solutionbox[ + #math.equation(block: false, alt: "y equals 64 plus 0.5 t")[$y = 64 + 0.5 t$] + #math.equation(block: false, alt: "83")[$83$] cm, #math.equation(block: false, alt: "89")[$89$] cm + #math.equation(block: false, alt: "214")[$214$] cm; No ] Explain the difference between interpolation and extrapolation. \_\_\_\_\_ Explain the difference between interpolation and extrapolation. Estimating a line of best fit is a subjective process. Rather than base their estimates on such a line, statisticians often use the #strong[least squares regression line]. #figure(figph[least squares line], alt: "least squares line", caption: none) This regression line minimizes the sum of the squares of all the vertical distances between the data points and the corresponding points on the line, as shown at left. Many calculators are programmed to find the least squares regression line, using an algorithm that depends only on the data, not on the appearance of the graph. #notebox("Technology", rgb("#8a94a6"), rgb("#556666"), rgb("#f7f8fa"))[ #emph[Using Technology for Linear Regression] You can use a graphing calculator to make a scatterplot, find a regression line, and graph the regression line with the data points. On the TI-84 calculator, we use the statistics mode, which you can access by pressing STAT. You will see a display that looks like figure (a) below. Choose #math.equation(block: false, alt: "1")[$1$] to #math.equation(block: false, alt: "E d i t")[$E d i t$] (enter or alter) data. #figure(figph[graphing calculator menu], alt: "graphing calculator menu", caption: none) Now follow the instructions in Example for using your calculator’s statistics features. ] #examplebox("Example 6")[][ + Find the equation of the least squares regression line for the following data: #math.equation(block: true, alt: "open parenthesis 10 , 12 close parenthesis , open parenthesis 11 , 14 close parenthesis , open parenthesis 12 , 14 close parenthesis , open parenthesis 12 , 16 close parenthesis , open parenthesis 14 , 20 close parenthesis")[$( 10 , 12 ) , ( 11 , 14 ) , ( 12 , 14 ) , ( 12 , 16 ) , ( 14 , 20 )$] + Plot the data points and the least squares regression line on the same axes. #solutionbox[ + We must first enter the data. - Press STATENTER to select #math.equation(block: false, alt: "E d i t")[$E d i t$]. - If there are data in column #math.equation(block: false, alt: "L sub 1")[$L_(1)$] or #math.equation(block: false, alt: "L sub 2")[$L_(2)$], clear them out: Use the key to select #math.equation(block: false, alt: "L sub 1")[$L_(1)$], press CLEAR, then do the same for #math.equation(block: false, alt: "L sub 2")[$L_(2)$]. - Enter the #math.equation(block: false, alt: "x")[$x$]-coordinates of the data points in the #math.equation(block: false, alt: "L sub 1")[$L_(1)$] column and enter the #math.equation(block: false, alt: "y")[$y$]-coordinates in the #math.equation(block: false, alt: "L sub 2")[$L_(2)$] column, as shown in figure (a) below.#figure(figph[graphing calculator data and regression equation], alt: "graphing calculator data and regression equation", caption: none) #linebreak() Now we are ready to find the regression equation for our data. - Press STAT 4 to select linear regression, or LinReg (ax + b), then press ENTER. - The calculator will display the equation #math.equation(block: false, alt: "y equals a x plus b")[$y = a x + b$] and the values for #math.equation(block: false, alt: "a")[$a$] and #math.equation(block: false, alt: "b")[$b$], as shown in figure (b). You should find that your regression line is approximately #math.equation(block: false, alt: "y equals 1.95 x minus 7.86")[$y = 1.95 x − 7.86$]. + First, we first clear out any old definitions in the list. - Position the cursor after #math.equation(block: false, alt: "Y sub 1 equals")[$Y_(1) =$] and copy in the regression equation as follows: - Press VARS #math.equation(block: false, alt: "5")[$5$] ENTER. - To draw a scatterplot, press 2ndY=#math.equation(block: false, alt: "1")[$1$] and set the Plot1 menu as shown in figure (a) below. - Finally, press ZOOM #math.equation(block: false, alt: "9")[$9$] to see the scatterplot of the data and the regression line. The graph is shown in figure (b). #figure(figph[graphing calculator menu and regression line], alt: "graphing calculator menu and regression line", caption: none) ] ] #notebox("Caution", rgb("#8a94a6"), rgb("#556666"), rgb("#f7f8fa"))[ When you are through with the scatterplot, press Y= ENTER to turn off the #math.equation(block: false, alt: "S t a t P l o t")[$S t a t P l o t$]. If you neglect to do this, the calculator will continue to show the scatterplot even after you ask it to plot a new equation. ] Use your calculator’s statistics features to find the least squares regression equation for the data in Practice 2. + The equation: #math.equation(block: false, alt: "y equals")[$y =$]\_\_\_\_\_ + Plot the data and the graph of the regression equation. #solutionbox[ + #math.equation(block: false, alt: "y equals 1.34 plus 0.71 x")[$y = 1.34 + 0.71 x$] + A graph is below. ] A graph for part (b): #figure(figph[GC scatterplot with regression line], alt: "GC scatterplot with regression line", caption: none) + Use your calculator’s statistics features to find the least squares regression equation for the data in Practice 2. + Plot the data and the graph of the regression equation. #solutionbox[ + #math.equation(block: false, alt: "y equals 1.34 plus 0.71 x")[$y = 1.34 + 0.71 x$] + #figure(figph[GC scatterplot with regression line], alt: "GC scatterplot with regression line", caption: none) ] === Section Summary ==== Vocabulary Look up the definitions of new terms in the Glossary. - Scatterplot - Least squares regression line - Extrapolate - Regression line - Interpolate - Linear regression ==== CONCEPTS + Data points may not lie exactly on the graph of an equation. + Points in a scatterplot may or may not exhibit a pattern. + We can approximate a linear pattern by a regression line. + We can use interpolation or extrapolation to make estimates and predictions. + If we extrapolate too far beyond the known data, we may get unreasonable results. ==== STUDY QUESTIONS + What is a regression line? + State two formulas you will need to calculate the equation of a line through two points. + Explain the difference between interpolation and extrapolation. + In general, should you have more confidence in figures obtained by interpolation or by extrapolation? Why? ==== SKILLS Practice each skill in the Homework problems listed. + Find the equation of a line through two points: \#1–6, 29–36 + Draw a line of best fit: \#7–18 + Find the equation of a regression line: \#11–28, 37–40 + Use interpolation and extrapolation to make predictions: \#11–40 === Homework 1.6 In Problems 1–6, we find a linear model from two data points. + Make a table showing the coordinates of two data points for the model. (Which variable should be plotted on the horizontal axis?) + Find a linear equation relating the variables. + State the slope of the line, including units, and explain its meaning in the context of the problem. It cost a bicycle company \$#math.equation(block: false, alt: "9000")[$9000$] to make #math.equation(block: false, alt: "40")[$40$] touring bikes in its first month of operation and \$#math.equation(block: false, alt: "15 , 000")[$15 , 000$] to make #math.equation(block: false, alt: "125")[$125$] bikes during its second month. Express the company's monthly production cost, #math.equation(block: false, alt: "C")[$C$], in terms of the number, #math.equation(block: false, alt: "x")[$x$], of bikes it makes. + #figure(table( columns: 3, align: left, inset: 6pt, table.header([#math.equation(block: false, alt: "x")[$x$]], [#math.equation(block: false, alt: "50")[$50$]], [#math.equation(block: false, alt: "125")[$125$]]), [#math.equation(block: false, alt: "y")[$y$]], [#math.equation(block: false, alt: "9000")[$9000$]], [#math.equation(block: false, alt: "15 , 000")[$15 , 000$]], )) + #math.equation(block: false, alt: "C equals 5000 plus 80 x")[$C = 5000 + 80 x$] + #math.equation(block: false, alt: "m equals 80")[$m = 80$] dollars/bike, so it costs the company \$#math.equation(block: false, alt: "80")[$80$] per bike it manufactures. Flying lessons cost \$#math.equation(block: false, alt: "645")[$645$] for an #math.equation(block: false, alt: "8")[$8$]-hour course and \$#math.equation(block: false, alt: "1425")[$1425$] for a #math.equation(block: false, alt: "20")[$20$]-hour course. Both prices include a fixed insurance fee. Express the cost, #math.equation(block: false, alt: "C")[$C$], of flying lessons in terms of the length, #math.equation(block: false, alt: "h")[$h$], of the course in hours. Under ideal conditions, Andrea's Porsche can travel #math.equation(block: false, alt: "312")[$312$] miles on a full tank (#math.equation(block: false, alt: "12")[$12$] gallons of gasoline) and #math.equation(block: false, alt: "130")[$130$] miles on #math.equation(block: false, alt: "5")[$5$] gallons. Express the distance, #math.equation(block: false, alt: "d")[$d$], Andrea can drive in terms of the amount of gasoline, #math.equation(block: false, alt: "g")[$g$], she buys. + #figure(table( columns: 3, align: left, inset: 6pt, table.header([#math.equation(block: false, alt: "g")[$g$]], [#math.equation(block: false, alt: "12")[$12$]], [#math.equation(block: false, alt: "5")[$5$]]), [#math.equation(block: false, alt: "d")[$d$]], [#math.equation(block: false, alt: "312")[$312$]], [#math.equation(block: false, alt: "130")[$130$]], )) + #math.equation(block: false, alt: "d equals 26 g")[$d = 26 g$] + #math.equation(block: false, alt: "m equals 26")[$m = 26$] miles/gallon, so the Porche's fuel efficiency is #math.equation(block: false, alt: "26")[$26$] miles per gallon. On an international flight, a passenger may check two bags each weighing #math.equation(block: false, alt: "70")[$70$] kilograms, or #math.equation(block: false, alt: "154")[$154$] pounds, and one carry-on bag weighing #math.equation(block: false, alt: "50")[$50$] kilograms, or #math.equation(block: false, alt: "110")[$110$] pounds. Express the weight, #math.equation(block: false, alt: "p")[$p$], of a bag in pounds in terms of its weight, #math.equation(block: false, alt: "k")[$k$], in kilograms. A radio station in Detroit, Michigan, reports the high and low temperatures in the Detroit/Windsor area as #math.equation(block: false, alt: "59 degrees")[$59^(∘)$]F and #math.equation(block: false, alt: "23 degrees")[$23^(∘)$]F, respectively. A station in Windsor, Ontario, reports the same temperatures as #math.equation(block: false, alt: "15 degrees")[$15^(∘)$]C and #math.equation(block: false, alt: "minus 5 degrees")[$− 5^(∘)$]C. Express the Fahrenheit temperature, #math.equation(block: false, alt: "F")[$F$], in terms of the Celsius temperature, #math.equation(block: false, alt: "C")[$C$]. + #figure(table( columns: 3, align: left, inset: 6pt, table.header([#math.equation(block: false, alt: "C")[$C$]], [#math.equation(block: false, alt: "15")[$15$]], [#math.equation(block: false, alt: "minus 5")[$− 5$]]), [#math.equation(block: false, alt: "F")[$F$]], [#math.equation(block: false, alt: "59")[$59$]], [#math.equation(block: false, alt: "23")[$23$]], )) + #math.equation(block: false, alt: "F equals 32 plus the fraction 9 over 5 C")[$F = 32 + display(frac(9, 5)) C$] + #math.equation(block: false, alt: "m equals the fraction 9 over 5")[$m = display(frac(9, 5))$], so an increase of #math.equation(block: false, alt: "1 degrees")[$1^(∘)$]C is equivalent to an increase of #math.equation(block: false, alt: "the fraction 9 over 5 degrees")[$attach(display(frac(9, 5)), t: ∘)$]F. Ms. Randolph bought a used car in 2000. In 2002, the car was worth #math.equation(block: false, alt: "$ 9000")[$\$ 9000$], and in 2005 it was valued at #math.equation(block: false, alt: "$ 4500")[$\$ 4500$]. Express the value, #math.equation(block: false, alt: "V")[$V$] , of Ms. Randolph's car in terms of the number of years, #math.equation(block: false, alt: "t")[$t$], she has owned it. Each regression line can be improved by adjusting either #math.equation(block: false, alt: "m")[$m$] or #math.equation(block: false, alt: "b")[$b$]. Draw a line that fits the data points more closely. #figure(figph[scatterplot and line], alt: "scatterplot and line", caption: none) #figure(figph[scatterplot and line], alt: "scatterplot and line", caption: none) #figure(figph[scatterplot and line], alt: "scatterplot and line", caption: none) #figure(figph[scatterplot and line], alt: "scatterplot and line", caption: none) #figure(figph[scatterplot and line], alt: "scatterplot and line", caption: none) #figure(figph[scatterplot and line], alt: "scatterplot and line", caption: none) In Problems 11 and 12, use information from the graphs to answer the questions. The scatterplot shows the ages of 10 army drill sergeants and the time it took each to run 100 meters, in seconds. #figure(figph[scatterplot], alt: "scatterplot", caption: none) + What was the hundred-meter time for the 25-year-old drill sergeant? + How old was the drill sergeant whose hundred-meter time was #math.equation(block: false, alt: "12.6")[$12.6$] seconds? + Use a straightedge to draw a line of best fit through the data points. + Use your line of best fit to predict the hundred-meter time of a 28-year-old drill sergeant. + Choose two points on your regression line and find its equation. + Use the equation to predict the hundred-meter time of a 40-year-old drill sergeant and a 12 year-old drill sergeant. Are these predictions reasonable? + #math.equation(block: false, alt: "12")[$12$] seconds + #math.equation(block: false, alt: "39")[$39$] + #figure(figph[scatterplot with regression line], alt: "scatterplot with regression line", caption: none) + #math.equation(block: false, alt: "11.6")[$11.6$] seconds + #math.equation(block: false, alt: "y equals 8.5 plus 0.1 x")[$y = 8.5 + 0.1 x$] + #math.equation(block: false, alt: "12.7")[$12.7$] seconds; #math.equation(block: false, alt: "10.18")[$10.18$] seconds; The prediction for the 40-year-old is reasonable, but not the prediction for the 12-year-old. The scatterplot shows the outside temperature and the number of cups of cocoa sold at an outdoor skating rink snack bar on 13 consecutive nights. #figure(figph[scatterplot], alt: "scatterplot", caption: none) + How many cups of cocoa were sold when the temperature was #math.equation(block: false, alt: "2 degrees")[$2^(∘)$]C? + What was the temperature on the night when #math.equation(block: false, alt: "25")[$25$] cups of cocoa were sold? + Use a straightedge to draw a line of best fit through the data points + Use your line of best fit to predict the number of cups of cocoa that will be sold at the snack bar if the temperature is #math.equation(block: false, alt: "7 degrees")[$7^(∘)$]C. + Choose two points on your regression line and find its equation. + Use the equation to predict the number of cups of cocoa that will be sold when the temperature is #math.equation(block: false, alt: "10 degrees")[$10^(∘)$]C and when the temperature is #math.equation(block: false, alt: "24 degrees")[$24^(∘)$]C. Are these predictions reasonable? With Americans' increased use of faxes, pagers, and cell phones, new area codes are being created at a steady rate. The table shows the number of area codes in the United States each year. (Source: USA Today, NeuStar, Inc.) #figure(table( columns: 8, align: left, inset: 6pt, table.header([Year], [#math.equation(block: false, alt: "1997")[$1997$]], [#math.equation(block: false, alt: "1998")[$1998$]], [#math.equation(block: false, alt: "1999")[$1999$]], [#math.equation(block: false, alt: "2000")[$2000$]], [#math.equation(block: false, alt: "2001")[$2001$]], [#math.equation(block: false, alt: "2002")[$2002$]], [#math.equation(block: false, alt: "2003")[$2003$]]), [Number of area codes], [#math.equation(block: false, alt: "151")[$151$]], [#math.equation(block: false, alt: "186")[$186$]], [#math.equation(block: false, alt: "204")[$204$]], [#math.equation(block: false, alt: "226")[$226$]], [#math.equation(block: false, alt: "239")[$239$]], [#math.equation(block: false, alt: "262")[$262$]], [#math.equation(block: false, alt: "274")[$274$]], )) + Let #math.equation(block: false, alt: "t")[$t$] represent the number of years after 1995 and plot the data. Draw a line of best fit for the data points. + Find an equation for your regression line. + How many area codes do you predict for 2010? + #figure(figph[scatterplot with regression line], alt: "scatterplot with regression line", caption: none) + #math.equation(block: false, alt: "y equals 121 plus 19.86 t")[$y = 121 + 19.86 t$] + #math.equation(block: false, alt: "419")[$419$] The number of mobile homes in the United States has been increasing since 1960. The data in the table are given in millions of mobile homes. (Source: USA Today, U.S. Census Bureau) #figure(table( columns: 6, align: left, inset: 6pt, table.header([Year], [#math.equation(block: false, alt: "1960")[$1960$]], [#math.equation(block: false, alt: "1970")[$1970$]], [#math.equation(block: false, alt: "1980")[$1980$]], [#math.equation(block: false, alt: "1990")[$1990$]], [#math.equation(block: false, alt: "2000")[$2000$]]), [Number of mobile homes], [#math.equation(block: false, alt: "0.8")[$0.8$]], [#math.equation(block: false, alt: "2.1")[$2.1$]], [#math.equation(block: false, alt: "4.7")[$4.7$]], [#math.equation(block: false, alt: "7.4")[$7.4$]], [#math.equation(block: false, alt: "8.8")[$8.8$]], )) + Let #math.equation(block: false, alt: "t")[$t$] represent the number of years after 1960 and plot the data. Draw a line of best fit for the data points + Find an equation for your regression line. + How many mobile homes do you predict for 2010? Teenage birth rates in the United States declined from 1991 to 2000. The table shows the number of births per 1000 women in selected years. (Source: U.S. National Health Statistics) #figure(table( columns: 7, align: left, inset: 6pt, table.header([Year], [#math.equation(block: false, alt: "1991")[$1991$]], [#math.equation(block: false, alt: "1993")[$1993$]], [#math.equation(block: false, alt: "1995")[$1995$]], [#math.equation(block: false, alt: "1996")[$1996$]], [#math.equation(block: false, alt: "1997")[$1997$]], [#math.equation(block: false, alt: "1998")[$1998$]]), [Births], [#math.equation(block: false, alt: "62.1")[$62.1$]], [#math.equation(block: false, alt: "59.6")[$59.6$]], [#math.equation(block: false, alt: "56.8")[$56.8$]], [#math.equation(block: false, alt: "54.4")[$54.4$]], [#math.equation(block: false, alt: "52.3")[$52.3$]], [#math.equation(block: false, alt: "51.1")[$51.1$]], )) + Let #math.equation(block: false, alt: "t")[$t$] represent the number of years after 1990 and plot the data. Draw a line of best fit for the data points. + Find an equation for your regression line. + Estimate the teen birth rate in 1994. + Predict the teen birth rate in 2010. + #figure(figph[scatterplot with regression line], alt: "scatterplot with regression line", caption: none) + #math.equation(block: false, alt: "y equals 64.2 minus 1.63 t")[$y = 64.2 − 1.63 t$] + #math.equation(block: false, alt: "58")[$58$] births per #math.equation(block: false, alt: "1000")[$1000$] women + #math.equation(block: false, alt: "32")[$32$] births per #math.equation(block: false, alt: "1000")[$1000$] women The table shows the minimum wage in the United States at five-year intervals. (Source: Economic Policy Institute) #figure(table( columns: 10, align: left, inset: 6pt, table.header([Year], [#math.equation(block: false, alt: "1960")[$1960$]], [#math.equation(block: false, alt: "1965")[$1965$]], [#math.equation(block: false, alt: "1970")[$1970$]], [#math.equation(block: false, alt: "1975")[$1975$]], [#math.equation(block: false, alt: "1980")[$1980$]], [#math.equation(block: false, alt: "1985")[$1985$]], [#math.equation(block: false, alt: "1990")[$1990$]], [#math.equation(block: false, alt: "1995")[$1995$]], [#math.equation(block: false, alt: "2000")[$2000$]]), [Minimum wage], [#math.equation(block: false, alt: "1.00")[$1.00$]], [#math.equation(block: false, alt: "1.25")[$1.25$]], [#math.equation(block: false, alt: "1.60")[$1.60$]], [#math.equation(block: false, alt: "2.10")[$2.10$]], [#math.equation(block: false, alt: "3.10")[$3.10$]], [#math.equation(block: false, alt: "3.35")[$3.35$]], [#math.equation(block: false, alt: "3.80")[$3.80$]], [#math.equation(block: false, alt: "4.25")[$4.25$]], [#math.equation(block: false, alt: "5.15")[$5.15$]], )) + Let #math.equation(block: false, alt: "t")[$t$] represent the number of years after 1960 and plot the data. Draw a line of best fit for the data points. + Find an equation for your regression line. + Estimate the minimum wage in 1972. + Predict the minimum wage in 2010. Life expectancy in the United States has been rising since the nineteenth century. The table shows the U.S. life expectancy in selected years. (Source: http://www.infoplease.com) #figure(table( columns: 7, align: left, inset: 6pt, table.header([Year], [#math.equation(block: false, alt: "1950")[$1950$]], [#math.equation(block: false, alt: "1960")[$1960$]], [#math.equation(block: false, alt: "1970")[$1970$]], [#math.equation(block: false, alt: "1980")[$1980$]], [#math.equation(block: false, alt: "1990")[$1990$]], [#math.equation(block: false, alt: "2000")[$2000$]]), [Life expectancy at birth], [#math.equation(block: false, alt: "68.2")[$68.2$]], [#math.equation(block: false, alt: "69.7")[$69.7$]], [#math.equation(block: false, alt: "70.8")[$70.8$]], [#math.equation(block: false, alt: "73.7")[$73.7$]], [#math.equation(block: false, alt: "75.4")[$75.4$]], [#math.equation(block: false, alt: "77")[$77$]], )) + Let #math.equation(block: false, alt: "t")[$t$] represent the number of years after 1950, and plot the data. Draw a line of best fit for the data points. + Find an equation for your regression line. + Estimate the life expectancy of someone born in 1987. + Predict the life expectancy of someone born in 2010. + #figure(figph[scatterplot with regression line], alt: "scatterplot with regression line", caption: none) + #math.equation(block: false, alt: "y equals 0.18 t plus 67.9")[$y = 0.18 t + 67.9$] + #math.equation(block: false, alt: "74.9")[$74.9$] years + #math.equation(block: false, alt: "79")[$79$] years The table shows the per capita cigarette consumption in the United States at five-year intervals. (Source: http://www.infoplease.com) #figure(table( columns: 6, align: left, inset: 6pt, table.header([Year], [#math.equation(block: false, alt: "1980")[$1980$]], [#math.equation(block: false, alt: "1985")[$1985$]], [#math.equation(block: false, alt: "1990")[$1990$]], [#math.equation(block: false, alt: "1995")[$1995$]], [#math.equation(block: false, alt: "2000")[$2000$]]), [Per capita cigarette consumption], [#math.equation(block: false, alt: "3851")[$3851$]], [#math.equation(block: false, alt: "3461")[$3461$]], [#math.equation(block: false, alt: "2827")[$2827$]], [#math.equation(block: false, alt: "2515")[$2515$]], [#math.equation(block: false, alt: "2092")[$2092$]], )) + Let #math.equation(block: false, alt: "t")[$t$] represent the number of years after 1980, and plot the data. Draw a line of best fit for the data points. + Find an equation for your regression line. + Estimate the per capita cigarette consumption in 1998. + Predict the per capita cigarette consumption in 2010. "The earnings gap between high-school and college graduates continues to widen, the Census Bureau says. On average, college graduates now earn just over \$#math.equation(block: false, alt: "51 , 000")[$51 , 000$] a year, almost twice as much as high-school graduates. And those with no high-school diploma have actually seen their earnings drop in recent years." The table shows the unemployment rate and the median weekly earnings for employees with different levels of education. (Source: Morning Edition, National Public Radio, March 28, 2005) #figure(table( columns: 4, align: left, inset: 6pt, table.header([], [Years of #linebreak() education #linebreak()], [Unemployment #linebreak() rate #linebreak()], [Weekly #linebreak() earnings (\$) #linebreak()]), [Some #linebreak() high school #linebreak() no diploma #linebreak()], [#math.equation(block: false, alt: "10")[$10$]], [#math.equation(block: false, alt: "8.8")[$8.8$]], [#math.equation(block: false, alt: "396")[$396$]], [High-school #linebreak() graduate #linebreak()], [#math.equation(block: false, alt: "12")[$12$]], [#math.equation(block: false, alt: "5.5")[$5.5$]], [#math.equation(block: false, alt: "554")[$554$]], [Some college #linebreak() no degree #linebreak()], [#math.equation(block: false, alt: "13")[$13$]], [#math.equation(block: false, alt: "5.2")[$5.2$]], [#math.equation(block: false, alt: "622")[$622$]], [Associate's #linebreak() degree #linebreak()], [#math.equation(block: false, alt: "14")[$14$]], [#math.equation(block: false, alt: "4.0")[$4.0$]], [#math.equation(block: false, alt: "672")[$672$]], [Bachelor's #linebreak() degree #linebreak()], [#math.equation(block: false, alt: "16")[$16$]], [#math.equation(block: false, alt: "3.3")[$3.3$]], [#math.equation(block: false, alt: "900")[$900$]], [Master's #linebreak() degree #linebreak()], [#math.equation(block: false, alt: "18")[$18$]], [#math.equation(block: false, alt: "2.9")[$2.9$]], [#math.equation(block: false, alt: "1064")[$1064$]], [Professional #linebreak() degree #linebreak()], [#math.equation(block: false, alt: "20")[$20$]], [#math.equation(block: false, alt: "1.7")[$1.7$]], [#math.equation(block: false, alt: "1307")[$1307$]], )) + Plot years of education on the horizontal axis and weekly earnings on the vertical axis. + Find an equation for the regression line. + State the slope of the regression line, including units, and explain what it means in the context of the data. + Do you think this model is useful for extrapolation or interpolation? For example, what weekly earnings does the model predict for someone with 15 years of education? For 25 years? Do you think these predictions are valid? Why or why not? + #figure(figph[scatterplot with regression line], alt: "scatterplot with regression line", caption: none) + #math.equation(block: false, alt: "y equals 90.49 t minus 543.7")[$y = 90.49 t − 543.7$] + #math.equation(block: false, alt: "90.49")[$90.49$] dollars/year: Each additional year of education corresponds to an additional \$#math.equation(block: false, alt: "90.49")[$90.49$] in weekly earnings. + No: The degree or diploma attained is more significant than the number of years. So, for example, interpolation for the years of education between a bachelor's and master's degree may be inaccurate because earnings with just the bachelor's degree will not change until the master's degree is attained. And the years after the professional degree will not add significantly to earnings, so extrapolation is inappropriate. The table shows the birth rate (in births per woman) and the female literacy rate (as a percent of the adult female population) in a number of nations. (Source: UNESCO, The World Fact Book, EarthTrends) #figure(table( columns: 3, align: left, inset: 6pt, table.header([Country], [Literacy rate], [Birth rate]), [Brazil], [#math.equation(block: false, alt: "88.6")[$88.6$]], [#math.equation(block: false, alt: "1.93")[$1.93$]], [Egypt], [#math.equation(block: false, alt: "43.6")[$43.6$]], [#math.equation(block: false, alt: "2.88")[$2.88$]], [Germany], [#math.equation(block: false, alt: "99")[$99$]], [#math.equation(block: false, alt: "1.39")[$1.39$]], [Iraq], [#math.equation(block: false, alt: "53")[$53$]], [#math.equation(block: false, alt: "4.28")[$4.28$]], [Japan], [#math.equation(block: false, alt: "99")[$99$]], [#math.equation(block: false, alt: "1.39")[$1.39$]], [Niger], [#math.equation(block: false, alt: "9.4")[$9.4$]], [#math.equation(block: false, alt: "6.75")[$6.75$]], [Pakistan], [#math.equation(block: false, alt: "35.2")[$35.2$]], [#math.equation(block: false, alt: "4.14")[$4.14$]], [Peru], [#math.equation(block: false, alt: "82.1")[$82.1$]], [#math.equation(block: false, alt: "2.56")[$2.56$]], [Philippines], [#math.equation(block: false, alt: "92.7")[$92.7$]], [#math.equation(block: false, alt: "3.16")[$3.16$]], [Portugal], [#math.equation(block: false, alt: "91")[$91$]], [#math.equation(block: false, alt: "1.47")[$1.47$]], [Russian Federation], [#math.equation(block: false, alt: "99.2")[$99.2$]], [#math.equation(block: false, alt: "1.27")[$1.27$]], [Saudi Arabia], [#math.equation(block: false, alt: "69.3")[$69.3$]], [#math.equation(block: false, alt: "4.05")[$4.05$]], [United States], [#math.equation(block: false, alt: "97")[$97$]], [#math.equation(block: false, alt: "2.08")[$2.08$]], )) + Plot the data with literacy rate on the horizontal axis. Draw a line of best fit for the data points. + Find an equation for the regression line. + What values for the input variable make sense for the model? What are the largest and smallest values predicted by the model for the output variable? + State the slope of the regression line, including units, and explain what it means in the context of the data. The table shows the amount of carbon released into the atmosphere annually from burning fossil fuels, in billions of tons, at 5-year intervals from 1950 to 1995. (Source: www.worldwatch.org) #figure(table( columns: 11, align: left, inset: 6pt, table.header([Year], [#math.equation(block: false, alt: "1950")[$1950$]], [#math.equation(block: false, alt: "1955")[$1955$]], [#math.equation(block: false, alt: "1960")[$1960$]], [#math.equation(block: false, alt: "1965")[$1965$]], [#math.equation(block: false, alt: "1970")[$1970$]], [#math.equation(block: false, alt: "1975")[$1975$]], [#math.equation(block: false, alt: "1980")[$1980$]], [#math.equation(block: false, alt: "1985")[$1985$]], [#math.equation(block: false, alt: "1990")[$1990$]], [#math.equation(block: false, alt: "1995")[$1995$]]), [Carbon #linebreak() emissions #linebreak()], [#math.equation(block: false, alt: "1.6")[$1.6$]], [#math.equation(block: false, alt: "2.0")[$2.0$]], [#math.equation(block: false, alt: "2.5")[$2.5$]], [#math.equation(block: false, alt: "3.1")[$3.1$]], [#math.equation(block: false, alt: "4.0")[$4.0$]], [#math.equation(block: false, alt: "4.5")[$4.5$]], [#math.equation(block: false, alt: "5.2")[$5.2$]], [#math.equation(block: false, alt: "5.3")[$5.3$]], [#math.equation(block: false, alt: "5.9")[$5.9$]], [#math.equation(block: false, alt: "6.2")[$6.2$]], )) + Let #math.equation(block: false, alt: "t")[$t$] represent the number of years after 1950 and plot the data. Draw a line of best fit for the data points. + Find an equation for your regression line. + Estimate the amount of carbon released in 1992. + #figure(figph[scatterplot with regression line], alt: "scatterplot with regression line", caption: none) + #math.equation(block: false, alt: "y equals 1.6 plus 0.11 t")[$y = 1.6 + 0.11 t$] + #math.equation(block: false, alt: "6.2")[$6.2$] billion tons High-frequency radiation is harmful to living things because it can cause changes in their genetic material. The data below, collected by C. P. Oliver in 1930, show the frequency of genetic transmutations induced in fruit flies by doses of X-rays, measured in roentgens. (Source: C. P. Oliver, 1930) #figure(table( columns: 6, align: left, inset: 6pt, table.header([Dosage #linebreak() (roentgens) #linebreak()], [#math.equation(block: false, alt: "285")[$285$]], [#math.equation(block: false, alt: "570")[$570$]], [#math.equation(block: false, alt: "1640")[$1640$]], [#math.equation(block: false, alt: "3280")[$3280$]], [#math.equation(block: false, alt: "6560")[$6560$]]), [Percentage of #linebreak() mutated genes #linebreak()], [#math.equation(block: false, alt: "1.18")[$1.18$]], [#math.equation(block: false, alt: "2.99")[$2.99$]], [#math.equation(block: false, alt: "4.56")[$4.56$]], [#math.equation(block: false, alt: "9.63")[$9.63$]], [#math.equation(block: false, alt: "15.85")[$15.85$]], )) + Plot the data and draw a line of best fit through the data points. + Find an equation for your regression line. + Use the regression equation to predict the percent of mutations that might result from exposure to #math.equation(block: false, alt: "5000")[$5000$] roentgens of radiation. Bracken, a type of fern, is one of the most successful plants in the world, growing on every continent except Antarctica. New plants, which are genetic clones of the original, spring from a network of underground stems, or rhizomes, to form a large circular colony. The graph shows the diameters of various colonies plotted against their age. (Source: Chapman et al.,1992) #figure(figph[bracken colony diameter vs age], alt: "bracken colony diameter vs age", caption: none) + Calculate the rate of growth of the diameter of a bracken colony, in meters per year. + Find an equation for the line of best fit. (What should the vertical intercept of the line be?) + In Finland, bracken colonies over #math.equation(block: false, alt: "450")[$450$] meters in diameter have been found. How old are these colonies? + #math.equation(block: false, alt: "0.34")[$0.34$] meters per year + #math.equation(block: false, alt: "y equals 0.34 x")[$y = 0.34 x$] (#math.equation(block: false, alt: "b equals 0")[$b = 0$] because the plant has zero size until it begins.) + Over #math.equation(block: false, alt: "1300")[$1300$] years The European sedge warbler can sing several different songs consisting of trills, whistles, and buzzes. Male warblers who sing the largest number of songs are the first to acquire mates in the spring. The data below show the number of different songs sung by several male warblers and the day on which they acquired mates, where day 1 is April 20. (Source: Krebs and Davies, 1993) #figure(table( columns: 11, align: left, inset: 6pt, table.header([Number #linebreak() of songs #linebreak()], [#math.equation(block: false, alt: "41")[$41$]], [#math.equation(block: false, alt: "38")[$38$]], [#math.equation(block: false, alt: "34")[$34$]], [#math.equation(block: false, alt: "32")[$32$]], [#math.equation(block: false, alt: "30")[$30$]], [#math.equation(block: false, alt: "25")[$25$]], [#math.equation(block: false, alt: "24")[$24$]], [#math.equation(block: false, alt: "24")[$24$]], [#math.equation(block: false, alt: "23")[$23$]], [#math.equation(block: false, alt: "14")[$14$]]), [Pairing day], [#math.equation(block: false, alt: "20")[$20$]], [#math.equation(block: false, alt: "24")[$24$]], [#math.equation(block: false, alt: "25")[$25$]], [#math.equation(block: false, alt: "21")[$21$]], [#math.equation(block: false, alt: "24")[$24$]], [#math.equation(block: false, alt: "27")[$27$]], [#math.equation(block: false, alt: "31")[$31$]], [#math.equation(block: false, alt: "35")[$35$]], [#math.equation(block: false, alt: "40")[$40$]], [#math.equation(block: false, alt: "42")[$42$]], )) + Plot the data points, with number of songs on the horizontal axis. A regression line for the data is #math.equation(block: false, alt: "y equals minus 0.85 x plus 53")[$y = − 0.85 x + 53$]. Graph this line on the same axes with the data. + What does the slope of the regression line represent? + When can a sedge warbler that knows #math.equation(block: false, alt: "10")[$10$] songs expect to find a mate? + What do the intercepts of the regression line represent? Do these values make sense in context? One of the factors that determines the strength of a muscle is its cross-sectional area. The data below show the cross-sectional area of the arm flexor muscle for several men and women, and their strength, measured by the maximum force they exerted against a resistance. (Source: Davis, Kimmet, Autry, 1986) #figure(table( columns: 11, align: left, inset: 6pt, table.header([Women], [Area (sq cm)], [#math.equation(block: false, alt: "11.5")[$11.5$]], [#math.equation(block: false, alt: "10.8")[$10.8$]], [#math.equation(block: false, alt: "11.7")[$11.7$]], [#math.equation(block: false, alt: "12.0")[$12.0$]], [#math.equation(block: false, alt: "12.5")[$12.5$]], [#math.equation(block: false, alt: "12.7")[$12.7$]], [#math.equation(block: false, alt: "14.4")[$14.4$]], [#math.equation(block: false, alt: "14.4")[$14.4$]], [#math.equation(block: false, alt: "15.7")[$15.7$]]), [], [Strength (kg)], [#math.equation(block: false, alt: "11.3")[$11.3$]], [#math.equation(block: false, alt: "13.2")[$13.2$]], [#math.equation(block: false, alt: "13.2")[$13.2$]], [#math.equation(block: false, alt: "14.5")[$14.5$]], [#math.equation(block: false, alt: "15.6")[$15.6$]], [#math.equation(block: false, alt: "14.8")[$14.8$]], [#math.equation(block: false, alt: "15.6")[$15.6$]], [#math.equation(block: false, alt: "16.1")[$16.1$]], [#math.equation(block: false, alt: "18.4")[$18.4$]], [Men], [Area (sq cm)], [#math.equation(block: false, alt: "13.5")[$13.5$]], [#math.equation(block: false, alt: "13.8")[$13.8$]], [#math.equation(block: false, alt: "15.4")[$15.4$]], [#math.equation(block: false, alt: "15.4")[$15.4$]], [#math.equation(block: false, alt: "17.7")[$17.7$]], [#math.equation(block: false, alt: "18.6")[$18.6$]], [#math.equation(block: false, alt: "20.8")[$20.8$]], [#math.equation(block: false, alt: "minus")[$−$]], [#math.equation(block: false, alt: "minus")[$−$]], [], [Strength (kg)], [#math.equation(block: false, alt: "15.0")[$15.0$]], [#math.equation(block: false, alt: "17.3")[$17.3$]], [#math.equation(block: false, alt: "19.0")[$19.0$]], [#math.equation(block: false, alt: "19.8")[$19.8$]], [#math.equation(block: false, alt: "20.6")[$20.6$]], [#math.equation(block: false, alt: "20.8")[$20.8$]], [#math.equation(block: false, alt: "26.3")[$26.3$]], [#math.equation(block: false, alt: "minus")[$−$]], [#math.equation(block: false, alt: "minus")[$−$]], )) + Plot the data for both men and women on the same graph using different symbols for the data points for men and the data points for women. + Are the data for both men and women described reasonably well by the same regression line? Draw a line of best fit through the data. + Find the equation of your line of best fit, or use a calculator to find the regression line for the data. + What does the slope mean in this context? + #figure(figph[scatterplot with regression line], alt: "scatterplot with regression line", caption: none) + Yes + #math.equation(block: false, alt: "y equals 1.29 x minus 1.62")[$y = 1.29 x − 1.62$] + The slope, #math.equation(block: false, alt: "1.29")[$1.29$] kg/sq cm, tells us that strength increases by #math.equation(block: false, alt: "1.29")[$1.29$] kg when the muscle cross-sectional area increases by #math.equation(block: false, alt: "1")[$1$] sq cm. Astronomers use a numerical scale called #strong[magnitude] to measure the brightness of a star, with brighter stars assigned smaller magnitudes. When we view a star from Earth, dust in the air absorbs some of the light, making the star appear fainter than it really is. Thus, the observed magnitude of a star, #math.equation(block: false, alt: "m")[$m$], depends on the distance its light rays must travel through the Earth's atmosphere. The observed magnitude is given by #math.equation(block: true, alt: "m equals m sub 0 plus k x")[$m = m_(0) + k x$] where #math.equation(block: false, alt: "m sub 0")[$m_(0)$] is the actual magnitude of the star outside the atmosphere, #math.equation(block: false, alt: "x")[$x$] is the air mass (a measure of the distance through the atmosphere), and #math.equation(block: false, alt: "k")[$k$] is a constant called the #strong[extinction coefficient]. To calculate #math.equation(block: false, alt: "m sub 0")[$m_(0)$], astronomers observe the same object several times during the night at different positions in the sky, and hence for different values of #math.equation(block: false, alt: "x")[$x$]. Here are data from such observations. (Source: Karttunen et al., 1987) #figure(table( columns: 3, align: left, inset: 6pt, table.header([Altitude], [Air mass, #math.equation(block: false, alt: "x")[$x$]], [Magnitude, #math.equation(block: false, alt: "m")[$m$]]), [#math.equation(block: false, alt: "50 degrees")[$50^(∘)$]], [#math.equation(block: false, alt: "1.31")[$1.31$]], [#math.equation(block: false, alt: "0.90")[$0.90$]], [#math.equation(block: false, alt: "35 degrees")[$35^(∘)$]], [#math.equation(block: false, alt: "1.74")[$1.74$]], [#math.equation(block: false, alt: "0.98")[$0.98$]], [#math.equation(block: false, alt: "25 degrees")[$25^(∘)$]], [#math.equation(block: false, alt: "2.37")[$2.37$]], [#math.equation(block: false, alt: "1.07")[$1.07$]], [#math.equation(block: false, alt: "20 degrees")[$20^(∘)$]], [#math.equation(block: false, alt: "2.92")[$2.92$]], [#math.equation(block: false, alt: "1.17")[$1.17$]], )) + Plot observed magnitude against air mass, and draw a line of best fit through the data. + Find the equation of your line of best fit, or use a calculator to find the regression line for the data. + Find the equation of your line of best fit, or use a calculator to find the regression line for the data. + What is the value of the extinction coefficient? What is the apparent magnitude of the star outside Earth's atmosphere? Six students are trying to identify an unknown chemical compound by heating the substance and measuring the density of the gas that evaporates. (Density #math.equation(block: false, alt: "equals")[$=$] mass/volume.) The students record the mass lost by the solid substance and the volume of the gas that evaporated from it. They know that the mass lost by the solid must be the same as the mass of the gas that evaporated. (Source: Hunt and Sykes, 1984) #figure(table( columns: 7, align: left, inset: 6pt, table.header([Student], [A], [B], [C], [D], [E], [F]), [Volume of #linebreak() gas (#math.equation(block: false, alt: "cm cubed")[$"cm"^(3)$]) #linebreak()], [#math.equation(block: false, alt: "48")[$48$]], [#math.equation(block: false, alt: "60")[$60$]], [#math.equation(block: false, alt: "24")[$24$]], [#math.equation(block: false, alt: "81")[$81$]], [#math.equation(block: false, alt: "76")[$76$]], [#math.equation(block: false, alt: "54")[$54$]], [Loss in #linebreak() mass (mg) #linebreak()], [#math.equation(block: false, alt: "64")[$64$]], [#math.equation(block: false, alt: "81")[$81$]], [#math.equation(block: false, alt: "32")[$32$]], [#math.equation(block: false, alt: "107")[$107$]], [#math.equation(block: false, alt: "88")[$88$]], [#math.equation(block: false, alt: "72")[$72$]], )) + Plot the data with volume on the horizontal axis. Which student made an error in the experiment? + Ignoring the incorrect data point, draw a line of best fit through the other points. + Find an equation of the form #math.equation(block: false, alt: "y equals k x")[$y = k x$] for the data. Why should you expect the regression line to pass through the origin? + Use your equation to calculate the mass of #math.equation(block: false, alt: "1000 cm cubed")[$1000 attach(" cm", t: 3)$] (one liter) of the gas. + Here are the densities of some gases at room temperature:#figure(table( columns: 3, align: left, inset: 6pt, table.header([Hydrogen], [#math.equation(block: false, alt: "8")[$8$]], [mg/liter]), [Nitrogen], [#math.equation(block: false, alt: "1160")[$1160$]], [mg/liter], [Oxygen], [#math.equation(block: false, alt: "1330")[$1330$]], [mg/liter], [Carbon dioxide], [#math.equation(block: false, alt: "1830")[$1830$]], [mg/liter], )) #linebreak() Which of these might have been the gas that evaporated from the unknown substance? Use your answer to part (d) to calculate the density of the gas. #math.equation(block: false, alt: "1 cm cubed equals 1 milliliter")[$1 attach(" cm", t: 3) = 1 " milliliter"$]. + E + #figure(figph[scatterplot with regression line], alt: "scatterplot with regression line", caption: none) + #math.equation(block: false, alt: "y equals 1.33 x")[$y = 1.33 x$]; There should be no loss in mass when no gas evaporates. + #math.equation(block: false, alt: "1333")[$1333$] mg + Oxygen The formulas for many chemical compounds involve ratios of small integers. For example, the formula for water, H#math.equation(block: false, alt: "2")[$2$]0, means that two atoms of hydrogen combine with one atom of oxygen to make one water molecule. Similarly, magnesium and oxygen combine to produce magnesium oxide. In this problem, we will discover the chemical formula for magnesium oxide. (Source: Hunt and Sykes, 1984) + Twenty-four grams of magnesium contain the same number of atoms as sixteen grams of oxygen. Complete the table showing the amount of oxygen needed if the formula for magnesium oxide is #math.equation(block: false, alt: "MgO")[$"MgO"$], #math.equation(block: false, alt: "Mg sub 2 O")[$"Mg"_(2) "O"$], or #math.equation(block: false, alt: "MgO sub 2")[$"MgO"_(2)$].#figure(table( columns: 4, align: left, inset: 6pt, table.header([Grams of Mg], [Grams of #linebreak() O (if MgO) #linebreak()], [Grams of #linebreak() O (if Mg#math.equation(block: false, alt: "2")[$2$]O) #linebreak()], [Grams of #linebreak() O (if MgO#math.equation(block: false, alt: "2")[$2$]) #linebreak()]), [#math.equation(block: false, alt: "24")[$24$]], [#math.equation(block: false, alt: "16")[$16$]], [], [], [#math.equation(block: false, alt: "48")[$48$]], [], [], [], [#math.equation(block: false, alt: "12")[$12$]], [], [], [], [#math.equation(block: false, alt: "6")[$6$]], [], [], [], )) + Graph three lines on the same axes to represent the three possibilities, with grams of magnesium on the horizontal axis and grams of oxygen on the vertical axis. + Here are the results of some experiments synthesizing magnesium oxide.#figure(table( columns: 3, align: left, inset: 6pt, table.header([Experiment], [Grams of #linebreak() Magnesium #linebreak()], [Grams #linebreak() of oxygen #linebreak()]), [#math.equation(block: false, alt: "1")[$1$]], [#math.equation(block: false, alt: "15")[$15$]], [#math.equation(block: false, alt: "10")[$10$]], [#math.equation(block: false, alt: "2")[$2$]], [#math.equation(block: false, alt: "22")[$22$]], [#math.equation(block: false, alt: "14")[$14$]], [#math.equation(block: false, alt: "3")[$3$]], [#math.equation(block: false, alt: "30")[$30$]], [#math.equation(block: false, alt: "20")[$20$]], [#math.equation(block: false, alt: "4")[$4$]], [#math.equation(block: false, alt: "28")[$28$]], [#math.equation(block: false, alt: "18")[$18$]], [#math.equation(block: false, alt: "5")[$5$]], [#math.equation(block: false, alt: "10")[$10$]], [#math.equation(block: false, alt: "6")[$6$]], )) #linebreak() Plot the data on your graph from part (b). Which is the correct formula for magnesium oxide? For Problems 29–32, + Use linear interpolation to give approximate answers. + What is the meaning of the slope in the context of the problem? The temperature in Encino dropped from #math.equation(block: false, alt: "81 degrees")[$81^(∘)$]F at 1 a.m. to #math.equation(block: false, alt: "73 degrees")[$73^(∘)$]F at 5 a.m. Estimate the temperature at 4 a.m. + #math.equation(block: false, alt: "75 degrees")[$75^(∘)$]F + The slope of #math.equation(block: false, alt: "minus 2")[$− 2$] degrees/hour says that temperatures are dropping at a rate of #math.equation(block: false, alt: "2 degrees")[$2^(∘)$] per hour. Newborn blue whales are about #math.equation(block: false, alt: "24")[$24$] feet long and weigh #math.equation(block: false, alt: "3")[$3$] tons. The young whale nurses for #math.equation(block: false, alt: "7")[$7$] months, at which time it is #math.equation(block: false, alt: "53")[$53$] feet long. Estimate the length of a #math.equation(block: false, alt: "1")[$1$]-year-old blue whale. A car starts from a standstill and accelerates to a speed of #math.equation(block: false, alt: "60")[$60$] miles per hour in #math.equation(block: false, alt: "6")[$6$] seconds. Estimate the car's speed #math.equation(block: false, alt: "2")[$2$] seconds after it began to accelerate. + #math.equation(block: false, alt: "20")[$20$] mph + The slope of #math.equation(block: false, alt: "10")[$10$] mph/second says the car accelerates at a rate of #math.equation(block: false, alt: "10")[$10$] mph per second. A truck on a slippery road is moving at #math.equation(block: false, alt: "24")[$24$] feet per second when the driver steps on the brakes. The truck needs #math.equation(block: false, alt: "3")[$3$] seconds to come to a stop. Estimate the truck's speed #math.equation(block: false, alt: "2")[$2$] seconds after the brakes were applied. In Problems 33–36, use linear interpolation or extrapolation to answer the questions. The temperature of an automobile engine is #math.equation(block: false, alt: "9 degrees")[$9^(∘)$] Celsius when the engine is started and #math.equation(block: false, alt: "51 degrees")[$51^(∘)$]C seven minutes later. Use a linear model to predict the engine temperature for both #math.equation(block: false, alt: "2")[$2$] minutes and #math.equation(block: false, alt: "2")[$2$] hours after it started. Are your predictions reasonable? 2 min: #math.equation(block: false, alt: "21 degrees")[$21^(∘)$]C; 2 hr: #math.equation(block: false, alt: "729 degrees")[$729^(∘)$]C; The estimate at 2 minutes is reasonable; the estimate at 2 hours is not reasonable. The temperature in Death Valley is #math.equation(block: false, alt: "95 degrees")[$95^(∘)$] Fahrenheit at 5 a.m. and rises to #math.equation(block: false, alt: "110 degrees")[$110^(∘)$] Fahrenheit by noon. Use a linear model to predict the temperature at 2 p.m. and at midnight. Are your predictions reasonable? Ben weighed #math.equation(block: false, alt: "8")[$8$] pounds at birth and #math.equation(block: false, alt: "20")[$20$] pounds at age #math.equation(block: false, alt: "1")[$1$] year. How much will he weigh at age #math.equation(block: false, alt: "10")[$10$] if his weight increases at a constant rate? #math.equation(block: false, alt: "128")[$128$] lb. The elephant at the City Zoo becomes ill and loses weight. She weighed #math.equation(block: false, alt: "10 , 012")[$10 , 012$] pounds when healthy and only #math.equation(block: false, alt: "9641")[$9641$] pounds a week later. Predict her weight after #math.equation(block: false, alt: "10")[$10$] days of illness. Birds' nests are always in danger from predators. If there are other nests close by, the chances of predators finding the nest increase. The table shows the probability of a nest being found by predators and the distance to the nearest neighboring nest. (Source: Perrins, 1979) #figure(table( columns: 6, align: left, inset: 6pt, table.header([Distance to #linebreak() nearest neighbor #linebreak() (meters) #linebreak()], [#math.equation(block: false, alt: "20")[$20$]], [#math.equation(block: false, alt: "40")[$40$]], [#math.equation(block: false, alt: "60")[$60$]], [#math.equation(block: false, alt: "80")[$80$]], [#math.equation(block: false, alt: "100")[$100$]]), [Probability of #linebreak() predators (%) #linebreak()], [#math.equation(block: false, alt: "47")[$47$]], [#math.equation(block: false, alt: "34")[$34$]], [#math.equation(block: false, alt: "32")[$32$]], [#math.equation(block: false, alt: "17")[$17$]], [#math.equation(block: false, alt: "1.5")[$1.5$]], )) + Plot the data and the least squares regression line. + Use the regression line to estimate the probability of predators finding a nest if its nearest neighbor is #math.equation(block: false, alt: "50")[$50$] meters away. + If the probability of predators finding a nest is #math.equation(block: false, alt: "10 %")[$10 upright(%)$], how far away is its nearest neighbor? + What is the probability of predators finding a nest if its nearest neighbor is #math.equation(block: false, alt: "120")[$120$] meters away? Is your answer reasonable? + #math.equation(block: false, alt: "y approximately equals minus 0.54 x plus 58.7")[$y ≈ − 0.54 x + 58.7$]#figure(figph[scatterplot with regression line], alt: "scatterplot with regression line", caption: none) + #math.equation(block: false, alt: "31.7 %")[$31.7 upright(%)$] + #math.equation(block: false, alt: "90")[$90$] meters + The regression line gives a negative probability, which is not reasonable. A trained cyclist pedals faster as he increases his cycling speed, even with a multiple-gear bicycle. The table shows the pedal frequency, #math.equation(block: false, alt: "p")[$p$] (in revolutions per minute), and the cycling speed, #math.equation(block: false, alt: "c")[$c$] (in kilometers per hour), of one cyclist. (Source: Pugh, 1974) #figure(table( columns: 7, align: left, inset: 6pt, table.header([Speed #linebreak() (km/hr) #linebreak()], [#math.equation(block: false, alt: "8.8")[$8.8$]], [#math.equation(block: false, alt: "12.5")[$12.5$]], [#math.equation(block: false, alt: "16.2")[$16.2$]], [#math.equation(block: false, alt: "24.4")[$24.4$]], [#math.equation(block: false, alt: "31.9")[$31.9$]], [#math.equation(block: false, alt: "35.0")[$35.0$]]), [Pedal #linebreak() frequency (rpm) #linebreak()], [#math.equation(block: false, alt: "44.5")[$44.5$]], [#math.equation(block: false, alt: "50.7")[$50.7$]], [#math.equation(block: false, alt: "60.6")[$60.6$]], [#math.equation(block: false, alt: "77.9")[$77.9$]], [#math.equation(block: false, alt: "81.9")[$81.9$]], [#math.equation(block: false, alt: "95.3")[$95.3$]], )) + Plot the data and the least squares regression line. + Estimate the cyclist's pedal frequency at a speed of #math.equation(block: false, alt: "20")[$20$] kilometers per hour. + Estimate the cyclist's speed when he is pedaling at #math.equation(block: false, alt: "70")[$70$] revolutions per minute. + Does your regression line give a reasonable prediction for the pedaling frequency when the cyclist is not moving? Explain. In this problem we will calculate the efficiency of swimming as a means of locomotion. A swimmer generates power to maintain a constant speed in the water. If she must swim against an opposing force, the power increases. The following table shows the power expended by a swimmer while working against different amounts of force. (A positive force opposes the swimmer, and a negative force helps her.) (Source: diPrampero et al., 1974, and Alexander, 1992) #figure(table( columns: 9, align: left, inset: 6pt, table.header([Force #linebreak() (newtons) #linebreak()], [#math.equation(block: false, alt: "minus 3.5")[$− 3.5$]], [#math.equation(block: false, alt: "0")[$0$]], [#math.equation(block: false, alt: "0")[$0$]], [#math.equation(block: false, alt: "6")[$6$]], [#math.equation(block: false, alt: "8")[$8$]], [#math.equation(block: false, alt: "10")[$10$]], [#math.equation(block: false, alt: "17")[$17$]], [#math.equation(block: false, alt: "17")[$17$]]), [Metabolic #linebreak() power #linebreak() (watts) #linebreak()], [#math.equation(block: false, alt: "100")[$100$]], [#math.equation(block: false, alt: "190")[$190$]], [#math.equation(block: false, alt: "230")[$230$]], [#math.equation(block: false, alt: "320")[$320$]], [#math.equation(block: false, alt: "380")[$380$]], [#math.equation(block: false, alt: "450")[$450$]], [#math.equation(block: false, alt: "560")[$560$]], [#math.equation(block: false, alt: "600")[$600$]], )) + Plot the data on the grid, or use the #strong[StatPlot] feature on your calculator. Use your calculator to find the least squares regression line. Graph the regression line on top of the data. + Use your regression line to estimate the power needed for the swimmer to overcome an opposing force of #math.equation(block: false, alt: "15")[$15$] newtons. + Use your regression line to estimate the power generated by the swimmer when there is no force either hindering or helping her. + Estimate the force needed to tow the swimmer at #math.equation(block: false, alt: "0.4")[$0.4$] meters per second while she rests. (If she is resting, she is not generating any power). + The swimmer's #strong[mechanical] power (or rate of work) is computed by multiplying her speed times the force needed to tow her at rest. Use your answer to part (d) to calculate the mechanical power she generates by swimming at #math.equation(block: false, alt: "0.4")[$0.4$] meters per second. + The ratio of mechanical power to metabolic power is a measure of the swimmer's efficiency. Compute the efficiency of the swimmer when there is no external force opposing or helping her. + #figure(figph[scatterplot and regression line], alt: "scatterplot and regression line", caption: none) #linebreak() #math.equation(block: false, alt: "y approximately equals 22.8 x plus 198.5")[$y ≈ 22.8 x + 198.5$] + #math.equation(block: false, alt: "approximately equals 540")[$≈ 540$] watts + #math.equation(block: false, alt: "198.5")[$198.5$] watts + #math.equation(block: false, alt: "approximately equals minus 8.7")[$≈ − 8.7$] newtons + #math.equation(block: false, alt: "3.5")[$3.5$] watts + about #math.equation(block: false, alt: "0.018")[$0.018$] or #math.equation(block: false, alt: "1.8 %")[$1.8 upright(%)$] In this problem, we calculate the amount of energy generated by a cyclist. An athlete uses oxygen slowly when resting but more quickly during physical exertion. In an experiment, several trained cyclists took turns pedaling on a bicycle ergometer, which measures their work rate. The table shows the work rate of the cyclists, in watts, measured against their oxygen intake, in liters per minute. (Source: Pugh, 1974) #figure(table( columns: 9, align: left, inset: 6pt, table.header([Oxygen #linebreak() consumption #linebreak() (liters/min) #linebreak()], [#math.equation(block: false, alt: "1")[$1$]], [#math.equation(block: false, alt: "1.7")[$1.7$]], [#math.equation(block: false, alt: "2")[$2$]], [#math.equation(block: false, alt: "3.3")[$3.3$]], [#math.equation(block: false, alt: "3.9")[$3.9$]], [#math.equation(block: false, alt: "3.6")[$3.6$]], [#math.equation(block: false, alt: "4.3")[$4.3$]], [#math.equation(block: false, alt: "5")[$5$]]), [Work rate #linebreak() (watts) #linebreak()], [#math.equation(block: false, alt: "40")[$40$]], [#math.equation(block: false, alt: "100")[$100$]], [#math.equation(block: false, alt: "180")[$180$]], [#math.equation(block: false, alt: "220")[$220$]], [#math.equation(block: false, alt: "280")[$280$]], [#math.equation(block: false, alt: "300")[$300$]], [#math.equation(block: false, alt: "320")[$320$]], [#math.equation(block: false, alt: "410")[$410$]], )) + Plot the data on the grid, or use the #strong[StatPlot] feature on your calculator. Use your calculator to find the least squares regression line. Graph the regression line on top of the data. + Find the horizontal intercept of the regression line. What does the horizontal intercept tell you about this situation? + Estimate the power produced by a cyclist consuming oxygen at #math.equation(block: false, alt: "5.9")[$5.9$] liters per minute. + What is the slope of the regression line? The slope represents the amount of power, in watts, generated by a cyclist for each liter of oxygen consumed per minute. How many watts of power does a cyclist generate from each liter of oxygen? + One watt of power represents an energy output of one joule per second. How many joules of energy does the cyclist generate in one minute? + How many joules of energy can be extracted from each cubic centimeter of oxygen used? (One liter is equal to 1000 cubic centimeters.)