up to Numerical Measures

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()