THE ANOVA for the fractional experiment is performed in the R
stastistial software.
>tt<-read.Csv(\"clipboard\",sep=\"\t\")
>head(ttt)
Hardwood Cooking Pressure Strength
1 2 3 400 196.6
2 2 3 400 196.0
3 2 3 500 197.7
4 2 3 500 196.0
5 2 3 600 199.8
6 2 3 600 199.4
>tt$Hardwood <-as.factor(tt$ Hardwood)
>tt$Cooking <-as.factor(tt$Cooking)
>tt$Pressure <-as.factor(tt$Pressure)
>Strenght_aov <-aov(Strength~.,tt)
>summary(Strength_aov)
Df Sum Sq Mean Sq F value pr(>f)
Hardwood 28.84724.42366.91430.003392**
Cooking 121.777821.777834.03962.217e-06***
Presure 220.373910.186915.92261.937e-05***
Residucals 3019.19330.6398
-----
Signif.codes:0'****'0.001'**'0.01'*'0.05'.'0.1''1
Each of the factors is significant
