### See 'rsm' help for examples of FO, TWI, etc
library(rsm)
### Test LOF for a regression model
ChemReact.lm <- lm(Yield ~ Time*Temp, data = ChemReact1)
PureError.lm <- update (ChemReact.lm, . ~ PE(Time,Temp))
anova (ChemReact.lm, PureError.lm)
Run the code above in your browser using DataLab