1
2
3
4
plot(faithful$eruptions, 
     xlab = "sample number",
     ylab = "eruption times (min)",
     main = "Old Faithful Eruption Times")
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX