Errata


Last Updated on: May 12, 2022 at 09:13:50 AM

meanSEC <- mean(SDS4$times)
meanMIN <- mean(SDS4$times/60)
c(meanSEC, meanMIN)
[1] 7.80 0.13
sdSEC <- sd(SDS4$times)
sdMIN <- sd(SDS4$times/60)
c(sdSEC, sdMIN)
[1] 7.871402 0.131190
CVsec <- meanSEC/sdSEC
CVmin <- meanMIN/sdMIN
c(CVsec, CVmin)
[1] 0.9909289 0.9909289

The code defining the CV has \(\bar{X}/S\) instead of \(S/\bar{X}\). The code should be changed as shown below.

meanSEC <- mean(SDS4$times)
meanMIN <- mean(SDS4$times/60)
c(meanSEC, meanMIN)
[1] 7.80 0.13
sdSEC <- sd(SDS4$times)
sdMIN <- sd(SDS4$times/60)
c(sdSEC, sdMIN)
[1] 7.871402 0.131190
CVsec <- sdSEC/meanSEC
CVmin <- sdMIN/meanMIN
c(CVsec, CVmin)
[1] 1.009154 1.009154

\[P \dot\sim N\left(0.383, \sqrt{\tfrac{(0.383)(0.617)}{250}} = 0.0307 \right)\]