up to Numerical Measures

This commit is contained in:
Dan Buch 2011-07-13 22:38:38 -04:00
parent 99d8fa810e
commit cedc327100
2 changed files with 13 additions and 0 deletions

Binary file not shown.

View File

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