### See 'rsm' help for more examples
library(rsm)
### Test LOF for a regression model
ChemReact.lm = lm(Yield ~ Time*Temp, data=ChemReact, subset=1:7)
PureError.lm = update (ChemReact.lm, . ~ PE(Time,Temp))
anova (ChemReact.lm, PureError.lm)
Run the code above in your browser using DataLab