ttest.lm1 <- lm(logMass ~ Aquatic, data=bird)
anova(ttest.lm1)