data(MouseEmpathy)
str(MouseEmpathy)
aov.fit <- aov(percent.stretching ~ treatment, data = MouseEmpathy)
summary(aov.fit)
lm.fit <- lm(percent.stretching ~ treatment, data = MouseEmpathy)
anova(lm.fit)
Run the code above in your browser using DataLab