Beginning
library(faraway) data(strongx) m <- lm(crossx ~ energy, data = strongx) plot(crossx ~ energy, data = strongx) abline(m)
End
