data(ballBearing)
data(ballBearing) par(mfrow=c(1,2)) histPlot(ballBearing$lifeSpan, col='#22558833') qqnorm(ballBearing$lifeSpan)
Run the code above in your browser using DataLab