################################################### ### chunk number 1: ################################################### options("width"=70) load("students.RData") attach(students) ################################################### ### chunk number 2: ################################################### cor(Length, Weight, use = "complete.obs") ################################################### ### chunk number 3: ################################################### cor.test(Length, Weight) ################################################### ### chunk number 4: ################################################### cor(Length, Weight, use = "complete.obs") cor(Weight, Length, use = "complete.obs") ################################################### ### chunk number 5: ################################################### lm(Weight ~ Length) ################################################### ### chunk number 6: ################################################### summary(lm(Weight ~ Length)) ################################################### ### chunk number 7: ################################################### summary(aov(Weight ~ Length)) ################################################### ### chunk number 8: ################################################### plot(lm(Weight ~ Length), which=1) ################################################### ### chunk number 9: ################################################### plot(lm(Weight ~ Length), which=2) ################################################### ### chunk number 10: ################################################### plot(lm(Weight ~ Length), which=3)