xmp13.04 {Devore5}R Documentation

data from Example 13.4

Description

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.

Format

This data frame contains the following columns:

time
exposure to an ethylene absorbent (min).
Ethylene
ethylene content of the seeds (nL/g dry wt).

Source

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.

Examples

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)