Lubricant {NRAIA} | R Documentation |
The Lubricant
data frame has 53 rows and 3 columns on the
viscosity of a lubricant at different pressures and temperatures.
This data frame contains the following columns:
Bates and Watts (1998), Nonlinear Regression Analysis and Its Applications, Wiley (Appendix A1.5).
str(Lubricant) tempf <- as.factor(Lubricant$tempC) levels(tempf) <- paste(c(0.0,25.0,37.8,98.9),"C") xyplot(viscos ~ pressure, Lubricant, groups = tempf, xlab = "Pressure (atm)", type = c("g", "p"), ylab = "kinematic viscosity (stokes)", scales = list(y = list(log = 2)), auto.key = list(space = "top", columns = 4)) rm(tempf)