# NOT RUN {
data(poison)
poison.lm <- lm(Time~factor(Poison) * factor(Treatment), data=poison)
xplot(poison.lm,w=c(4,2))
anova(poison.lm)
# improved fit using a transformation
poison.lm2 <- lm(1/Time~factor(Poison) * factor(Treatment), data=poison)
xplot(poison.lm2,w=c(4,2))
anova(poison.lm)
# }
Run the code above in your browser using DataLab