Question

Q6. (Spts) (Apply Rto this question, R markdown format is requested) For the following data, generate ANOVA summary table. 1 3 Factor A 34.2 30.4 45.5 38.3 31.0 29.5 2 Factor B 2 36.3 25.9 28.5 34.7 37.5 37.9 42.4 37.5 38.3 36.3 33.5 33.3 27.9 39.7 35.9 35.1 39.1 29.7 38.9 33.2 40.1 41.4 39.0 37.6 35.6 45.0 44.5 39.8 36.7 35.7 Data is repeated here (be careful about the order): 34.2, 33.3, 30.4, 27.9, 36.3, 25.9, 28.5, 34.7, 29.7, 37.6, 38.9, 35.6, 45.5, 39.7, 38.3, 35.9, 37.5, 37.9, 42.4, 37.5, 33.2, 45.8, 40.1, 44.5, 31.0, 35.1, 29.5, 39.1, 38.3, 35.7, 36.3, 33.5, 41.4, 39.8, 39.0, 36.7

Answer 1

Enter data like this:

FactorA	FactorB	Variable
A1	B1	34.2
A1	B1	33.3
A1	B1	30.4
A1	B1	27.9
A1	B2	36.3
A1	B2	25.9
A1	B2	28.5
A1	B2	34.7
A1	B3	29.7
A1	B3	38.9
A1	B3	37.6
A1	B3	35.6
A2	B1	45.5
A2	B1	39.7
A2	B1	38.3
A2	B1	35.9
A2	B2	37.5
A2	B2	37.9
A2	B2	42.4
A2	B2	37.5
A2	B3	33.2
A2	B3	45
A2	B3	40.1
A2	B3	44.5
A3	B1	31
A3	B1	35.1
A3	B1	29.5
A3	B1	39.1
A3	B2	38.3
A3	B2	35.7
A3	B2	36.3
A3	B2	33.5
A3	B3	41.4
A3	B3	39.8
A3	B3	39
A3	B3	36.7

Rcode:

> data = read.csv(".\anova.csv") #read data

> View(data)
> model = lm(Variable~FactorA+FactorB+FactorA*FactorB,data=data) #fit a model
> anova(model) #anova

Output:
Analysis of Variance Table  

Response: Variable
Df Sum Sq Mean Sq F value Pr(>F)
FactorA 2 297.51 148.756 10.4667 0.0004313 ***
FactorB 2 86.69 43.343 3.0497 0.0639497 .
FactorA:FactorB 4 26.40 6.599 0.4643 0.7612715
Residuals 27 383.73 14.212
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Here, Factor A is signficant only at alpha 0,0.01,0.05 etc.

FactorB and Interaction effects are not significant.

Please rate my answer and comment for doubt.