### Book Errata

#### Chapter 2: R from the Beginning

Page 41: The first chunk of code in this page includes the following error: abline(l\,m(Diameter...)) should be corrected to abline(lm(Diameter...)). This is the correct code:

abline(lm(Diameter ~ Length, data = data.test),
lty = 2, lwd = 3,  col = "lightblue")


With thanks to our reader George Skountrianos who kindly reported the errata.

#### Chapter 4: Loss Function Analysis with R

Page 67: The correct equation for computing the $$k$$ constant is:

$\Large k=\frac{L_0}{\Delta^2}.$

Therefore the code following the equation should be:

0.001/0.5^2

## [1] 0.004


and this value must be used in the subsequent code chunks. The ss.lfa function has been fixed, so now the output you get is correct. As a consequence of this errata, the chapter practice solutions are also wrong (see below).

Page 269 (solutions):

• The correct solution of exercise 4.1 is:

$L(Y) = 87.5 \cdot (Y - 15)^2$
• The correct solution of exercise 4.2 is: $L(Y) = 0.0125\cdot ( Y - 750)^2$
curve(0.0125*(x - 750)^2,
from = 735,
to = 765)

• The correct solution of exercise 4.3 is:

ss.lfa(ss.data.ca, "Volume", 10, 750, 1.25, 12500)

The average loss is $0.053 and the total loss is$666.04

With thanks to our reader Fumihiko Yamagata who kindly reported the errata.

Page 71: The chunk of code in this page includes the following error in the second line: lfa.sub = "10\,mm. Bolts Project", should be corrected to lfa.sub = "10 mm. Bolts Project",. This is the correct code:

ss.lfa(ss.data.bolts, "diameter", 0.5, 10, 0.001,
lfa.sub = "10 mm. Bolts Project",
lfa.size = 100000, lfa.output = "both")


With thanks to our reader Samuel O’Bryant who kindly reported the errata.

Please note that this editing typo and the one in page 41 are due to the same cause: the string "\," where a space is expected. If you find a similar problem in the code, please check if that is the issue.

#### Chapter 2: R from the Beginning

Page 41: The first chunk of code in this page includes the following error: abline(l\,m(Diameter...)) should be corrected to abline(lm(Diameter...)). This is the correct code:

#### Chapter 12: Process Control with R

Pages 231, 232, 234, and 236: The acronym for Upper Control Limit in the equations should be "UCL" instead of "ULC".

Page 234: The acronym for Lower Control Limit in equation (12.1) should be "LCL" instead of "LCLZ".