diff --git a/elementary-statistics/.RData b/elementary-statistics/.RData
index 2197e7d..571f78b 100644
Binary files a/elementary-statistics/.RData and b/elementary-statistics/.RData differ
diff --git a/elementary-statistics/.Rhistory b/elementary-statistics/.Rhistory
index 742bd3f..34d3dbb 100644
--- a/elementary-statistics/.Rhistory
+++ b/elementary-statistics/.Rhistory
@@ -323,3 +323,16 @@ stem(interval)
 interval
 help(stem)
 q()
+waiting = faithful$waiting
+head(cbind(duration, waiting))
+plot(duration, waiting, xlab="Eruption duration", ylab="Time waited")
+par()
+plot(1:10, 1:10, type="n")
+help("font")
+??font
+# the above was a brief excursion into font settings and such
+abline(lm(waiting - duration))
+plot(duration, waiting, xlab="Eruption duration", ylab="Time waited")
+abline(lm(waiting - duration))
+abline(lm(waiting ~ duration))
+q()