#ONE-WAY ANOVA WITH FIXED EFFECTS
options(digits=12)
#-------------------------------------------------
#TREATMENTS MODEL IN R
#READ STRUCTURED DATA TABLE WITH NUMERIC CODED FACTOR
K=read.table("c:/2008LinearModelsData/KentonFoodR.txt")
K
attach(K)

Y=Sales
X=factor(Design) # factor() IN DEFAULT SETTING

FM=lm(Y~X)
summary(FM)
anova(FM)