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:
The average loss is $0.053 and the total loss is $666.04
ss.lfa(ss.data.ca, "Volume", 10, 750, 1.25, 12500)
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".