diff --git a/elementary-statistics/.Rhistory b/elementary-statistics/.Rhistory
index 34d3dbb..4ef74fe 100644
--- a/elementary-statistics/.Rhistory
+++ b/elementary-statistics/.Rhistory
@@ -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))
+q()
+q()