Sample of egg weights on 24 consecutive days
Sample of egg weights on 24 consecutive days
data("goulden.eggs")A data frame with 240 observations on the following 2 variables.
dayday
weightweight
Data are the weights of 10 eggs taken at random on each day for 24 days. Day 1 was Dec 10, and Day 24 was Jan 2.
The control chart for standard deviations shows 4 values beyond the upper limits. The data reveals a single, unusually large egg on each of these days. These are almost surely double-yolk eggs.
Cyrus H. Goulden (1952). Methods of Statistical Analysis, 2nd ed. Page 425.
None.
## Not run:
library(agridat)
data(goulden.eggs)
dat <- goulden.eggs
libs(qicharts)
# Figure 19-4 of Goulden. (Goulden uses 1/n when calculating std dev)
op <- par(mfrow=c(2,1))
qic(weight, x = day, data = dat, chart = 'xbar',
main = 'goulden.eggs - Xbar chart',
xlab = 'Date', ylab = 'Avg egg weight' )
qic(weight, x = day, data = dat, chart = 's',
main = 'goulden.eggs - S chart',
xlab = 'Date', ylab = 'Std dev egg weight' )
par(op)
## End(Not run)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.