powered by
data(field.concrete)
data(field.concrete) fit <- lm(efficiency~run+day+speed,data=field.concrete) anova(fit) summary(fit) fit <- lm(efficiency~run+day+poly(as.numeric(speed),3),data=field.concrete) summary(fit)
Run the code above in your browser using DataLab