powered by
tomato
data(tomato)
tomato.aov <- aov(log(weight) ~ trt, data=tomato) fitted.values(tomato.aov) summary.lm(tomato.aov) tomato.aov <- aov(formula = weight ~ trt, data = tomato) summary.lm(tomato.aov)
Run the code above in your browser using DataLab