x = c(0.38, 0.41, 1.2, 0.52, 0.69, 0.89, 0.67, 1.59, 0.55, 0.59)
iwp.plot( x )
# With cosmetic lines
iwp.plot(x, main="Inverse Weibull Probability Plot", col.line="red",
xlab="Lifetimes of bearings", lty.line=1, pch=3)
hline = -log(-log( c( (1:5)/100, (1:9)/10) ))
abline( h=hline, col=gray(0.1), lty=3, lwd=0.5 )
abline( v= seq(0, 2,by=0.1), col=gray(0.1), lty=3, lwd=0.5 )
Run the code above in your browser using DataLab