@ -336,3 +336,14 @@ plot(duration, waiting, xlab="Eruption duration", ylab="Time waited")
abline(lm(waiting - duration))
abline(lm(waiting ~ duration))
q()
mean(duration)
mean(interval)
??points
median(duration)
median(interval)
quantile(duration)
quantile(interval)
quantile(duration, c(.32, .57, .98))
quantile(interval, c(.17, .43, .67, .85))