An experiment was conducted to investigate how the thickness
Solution
Anova table will be set up to obtain the impact of height levels and positions on the thickness of the deposition.
> hpt <- read.csv(\"clipboard\",sep=\"\\t\")
> head(hpt)
Height Position Thickness
1 H1 P1 125
2 H1 P2 130
3 H1 P3 128
4 H1 P4 134
5 H1 P5 143
6 H2 P1 126
> sapply(hpt,class)
Height Position Thickness
\"factor\" \"factor\" \"integer\"
> thickness_aov <- aov(Thickness~Height+Position,data=hpt)
> summary(thickness_aov)
Df Sum Sq Mean Sq F value Pr(>F)
Height 2 1290 645 4.418 0.051 .
Position 4 600 150 1.027 0.449
Residuals 8 1168 146
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
The associated p-values indicate that while the position is insignificant variabel in explaining the thickness of the deposition, the height is significant.
