# NOT RUN {
plot(math ~ anxiety, data = Anxiety, ylab = "score",
main = "Exercise 2.96")
with(data = Anxiety,
cor(math, anxiety)
)
linmod <- lm(math ~ anxiety, data = Anxiety)
abline(linmod, col = "purple")
summary(linmod)
# }
Run the code above in your browser using DataLab