powered by
Hardwood
str(Hardwood) attach(Hardwood) plot(hardwood,tensile) model <- lm(tensile~hardwood) abline(model) summary(model) anova(model) rm(model) detach(Hardwood)
Run the code above in your browser using DataLab