ex04.84 {Devore5} | R Documentation |
The ex04.84
data frame has 20 rows and 1 columns of bearing
load lifetimes.
This data frame contains the following columns: describe{ item{loadlife}{ a numeric vector of bearing load life (million revs) for bearings tested at a 6.45 kN load. } }
Devore, J. L. (2000) Probability and Statistics for Engineering and the Sciences (5th ed), Duxbury
(1984) "The load-life relationship for M50 bearings with silicon nitrate ceramic balls", Lubrication Engineering, 153𤪏.
library(Devore5) data(ex04.84) attach(ex04.84) boxplot(loadlife, ylab = "Load-Life (million revs)", main = "Bearing load-lifes from exercise 4.84", col = "lightgray") ## Normal probability plot qqnorm(loadlife, ylab = "Load-life (million revs)") qqline(loadlife) ## Weibull probability plot plot( log(-log(1 - (seq(along = loadlife) - 0.5)/length(loadlife))), log(sort(loadlife)), xlab = "Theoretical Quantiles", ylab = "log(load-life) (log(million revs))", main = "Weibull Q-Q Plot", las = 1) detach()