attach(Wdata)
wp.plot( bearings )
# With cosmetic lines
wp.plot(bearings, main="Weibull Probability Plot", col.line="red",
xlab="Lifetimes of bearings", lty.line=1, pch=3)
hline = log(-log(1- c( (1:5)/100, (1:9)/10) ))
abline( h=hline, col=gray(0.1), lty=3, lwd=0.5 )
abline( v= seq(15, 200,by=5), col=gray(0.1), lty=3, lwd=0.5 )
Run the code above in your browser using DataLab