p2.14 {MPV} | R Documentation |
The p2.14
data frame has 8 observations on the molar
ratio of sebacic acid and the intrinsic viscosity of copolyesters.
One is interested in predicting viscosity from the sebacic acid ratio.
data(p2.14)
This data frame contains the following columns:
Montgomery, D.C., Peck, E.A., and Vining, C.G. (2001) Introduction to Linear Regression Analysis. 3rd Edition, John Wiley and Sons.
Hsuie, Ma, and Tsai (1995) Separation and Characterizations of Thermotropic Copolyesters of p-Hydroxybenzoic Acid, Sebacic Acid and Hydroquinone. Journal of Applied Polymer Science, 56, 471-476.
data(p2.14) attach(p2.14) plot(p2.14, pch=16, ylim=c(0,1)) visc.lm <- lm(visc ~ ratio) summary(visc.lm) visc.conf <- predict(visc.lm, interval="confidence") lines(ratio, visc.conf[,2], col="red") lines(ratio, visc.conf[,3], col="red") visc.pred <- predict(visc.lm, interval="prediction") lines(ratio, visc.pred[,2], col="blue") lines(ratio, visc.pred[,3], col="blue") detach(p2.14)