# NOT RUN {
x = ModelMatrix(uptake ~ Type, CO2)
y = model.frame(uptake ~ Type, CO2)[,1]
rx = lfit(x, y)
cSS(t(c(0, -1, 1)), rx) # sum of square
ANOVA(uptake ~ Type, CO2) # compare with the above
# }
Run the code above in your browser using DataLab