| xmp13.04 {Devore5} | R Documentation |
The xmp13.04 data frame has 11 rows and 2 columns on the
ethylene content of lettuce seeds as a function of exposure time to an
ethylene absorbent.
This data frame contains the following columns:
Devore, J. L. (2000) Probability and Statistics for Engineering and the Sciences (5th ed), Duxbury
(1972), ``Ethylene synthesis in lettuce seeds: Its physiological significance'', Plant Physiology, 719-722.
data(xmp13.04)
plot(Ethylene ~ time, data = xmp13.04,
xlab = "Exposure time (min)",
ylab = "Ethylene content (nL/g dry wt)",
main = "Compare to Figure 13.5 (a), page 556")
fm1 <- lm(Ethylene ~ time, data = xmp13.04)
abline(fm1)
plot(resid(fm1) ~ xmp13.04$time)
abline(h = 0, lty = 2)
title(main = "Compare to Figure 13.5 (b), page 556")
title(sub = "Using raw residuals instead of standardized")
fm2 <- lm(log(Ethylene) ~ time, data = xmp13.04)
plot(resid(fm2) ~ xmp13.04$time)
abline(h = 0, lty = 2)
title(main = "Compare to Figure 13.6 (a), page 557")
title(sub = "Using raw residuals instead of standardized")
summary(fm2)
plot(exp(fitted(fm2)) ~ xmp13.04$Ethylene)