summary(reactorpump)
plot(
reactorpump,
type = "b",
main = "Reactor Pump Failure Intervals",
ylab = "Thousands of Hours",
xlab = "Observation"
)
hist(
reactorpump,
main = "Histogram of Failure Intervals",
xlab = "Thousands of Hours"
)
Run the code above in your browser using DataLab