Đây là dữ liệu:
> tires <- data.frame(Wear = c(17, 14, 12, 13, 14, 14, 12, 11,
13, 13, 10, 11, 13, 8, 9, 9),
Brand = rep(LETTERS[1:4], 4),
Car = as.character(as.roman(rep(1:4, each = 4))))
> tires
Wear Brand Car
1 17 A I
2 14 B I
3 12 C I
4 13 D I
5 14 A II
6 14 B II
7 12 C II
8 11 D II
9 13 A III
10 13 B III
11 10 C III
12 11 D III
13 13 A IV
14 8 B IV
15 9 C IV
16 9 D IV
Bây giờ tôi phù hợp với ANOVA hai chiều với sự tương tác:
two.way <- aov(Wear ~ Brand + Car + Brand:Car, data = tires)
Cuối cùng, không có giá trị p:
> summary(two.way)
Df Sum Sq Mean Sq
Brand 3 30.69 10.229
Car 3 38.69 12.896
Brand:Car 9 11.56 1.285
Một ANOVA hai chiều thông thường (nghĩa là Wear ~ Brand + Car
) mang lại cho tôi giá trị p:
> summary(aov(Wear ~ Brand + Car, data = tires))
Df Sum Sq Mean Sq F value Pr(>F)
Brand 3 30.69 10.229 7.962 0.00668 **
Car 3 38.69 12.896 10.038 0.00313 **
Residuals 9 11.56 1.285
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Có cách nào để giải thích điều này? Cốt truyện tương tác cho tôi thấy rằng chắc chắn có sự tương tác giữa Brand
và Car
vì vậy tôi hy vọng sẽ kết hợp điều này vào mô hình của mình.