#Näide 4.1 mitmefaktoriline dispersioonanalüüs
taim=as.factor(rep(c("a","b"),each=20))
sugu=as.factor(rep(c("f","m","f","m"),each=10))
kaal=rep(c(4,5,6,11,14,34,2,1,11,14,16,27,13,22,32,11,26,18,21,4),2)
mudel1=lm(kaal~taim+sugu)
summary(mudel1)

#näide 4.2 mitmefaktoriline dispersioonanalüüs koosmõjuga
taim=as.factor(rep(c("a","b"),each=20))
sugu=as.factor(rep(c("f","m","f","m"),each=10))
kaal=rep(c(4,5,6,11,14,34,2,1,11,14,16,27,13,22,32,11,26,18,21,4),2)
mudel2=lm(kaal~taim*sugu)
anova(mudel2)

#näide 4.3 on analoogiline

#näide 4.4
trea=factor(rep(c("a","b","c"),each=5))
kaal=c(3,4,5,7,6,2,4,4,5,6,3,4,5,5,8)
pikkus=c(4,5,8,7,9,3,5,4,9,9,1,4,4,5,7)
mudel3=lm(pikkus~kaal+trea)
summary(mudel3)