ancova.example <- lm(uptake ~ conc*Treatment, data=CO2)
anova(ancova.example)