ANOVA 给了我一个重要的 P 值,但 Tukey 的 HSD 将所有内容归类为同一个字母。我做错了什么导致这个?
ANOVA gives me a significant P value, but Tukey's HSD categorizes everything as the same letter. What am I doing wrong to cause this?
当我查看数据集的方差分析时,我得到的 P 值为 0.018,这在 alpha=0.05 时很显着。但是,当我对该方差分析进行 Tukey 的 HSD 测试时,所有内容都被归类为 A 组。有人能解释一下这是怎么回事吗?
这是我的数据:
dataHodag <- read.table(text="
Plot Rate Rep HollowHeartPercent
1 2155 1 1 0.0
2 2252 1 2 0.2
3 2343 1 3 0.2
4 2433 1 4 0.2
5 2211 2 2 0.0
6 2326 2 3 0.0
7 2412 2 4 0.0
8 2136 2 1 0.2
9 2124 3 1 0.0
10 2334 3 3 0.0
11 2421 3 4 0.0
12 2236 3 2 0.2
13 2246 4 2 0.0
14 2354 4 3 0.0
15 2446 4 4 0.0
16 2116 4 1 0.1
17 2145 5 1 0.0
18 2225 5 2 0.0
19 2314 5 3 0.0
20 2451 5 4 0.0", header=TRUE)
我正在使用 agricolae 包进行分析
这是给我方差分析的代码:
TukeyAOV <- aov(HollowHeartPercent ~ Rep + Rate, data=dataHodag)
summary(TukeyAOV)
# Df Sum Sq Mean Sq F value Pr(>F)
# Rep 1 0.00250 0.00250 0.406 0.533
# Rate 1 0.04225 0.04225 6.857 0.018 *
# Residuals 17 0.10475 0.00616
# ---
# Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
这是我的 Tukey HSD 测试的代码:
HSD <- agricolae::HSD.test(TukeyAOV, "Rate", alpha = 0.05, group=TRUE)
print(HSD$groups)
# HollowHeartPercent groups
# 1 0.150 a
# 2 0.050 a
# 3 0.050 a
# 4 0.025 a
# 5 0.000 a
如有任何帮助,我们将不胜感激。谢谢!!
您注意到自由度的差异了吗?您将 Rate 和 Rep 视为数字变量,而不是因素。比较对象:
> dataHodag$Plot <- as.factor(dataHodag$Plot)
> dataHodag$Rate <- as.factor(dataHodag$Rate)
> TukeyAOV <- aov(HollowHeartPercent ~ Rep + Rate, data=dataHodag)
> summary(TukeyAOV)
Df Sum Sq Mean Sq F value Pr(>F)
Rep 1 0.0025 0.002500 0.368 0.554
Rate 4 0.0520 0.013000 1.916 0.164
Residuals 14 0.0950 0.006786
希望对您有所帮助。
当我查看数据集的方差分析时,我得到的 P 值为 0.018,这在 alpha=0.05 时很显着。但是,当我对该方差分析进行 Tukey 的 HSD 测试时,所有内容都被归类为 A 组。有人能解释一下这是怎么回事吗?
这是我的数据:
dataHodag <- read.table(text="
Plot Rate Rep HollowHeartPercent
1 2155 1 1 0.0
2 2252 1 2 0.2
3 2343 1 3 0.2
4 2433 1 4 0.2
5 2211 2 2 0.0
6 2326 2 3 0.0
7 2412 2 4 0.0
8 2136 2 1 0.2
9 2124 3 1 0.0
10 2334 3 3 0.0
11 2421 3 4 0.0
12 2236 3 2 0.2
13 2246 4 2 0.0
14 2354 4 3 0.0
15 2446 4 4 0.0
16 2116 4 1 0.1
17 2145 5 1 0.0
18 2225 5 2 0.0
19 2314 5 3 0.0
20 2451 5 4 0.0", header=TRUE)
我正在使用 agricolae 包进行分析 这是给我方差分析的代码:
TukeyAOV <- aov(HollowHeartPercent ~ Rep + Rate, data=dataHodag)
summary(TukeyAOV)
# Df Sum Sq Mean Sq F value Pr(>F)
# Rep 1 0.00250 0.00250 0.406 0.533
# Rate 1 0.04225 0.04225 6.857 0.018 *
# Residuals 17 0.10475 0.00616
# ---
# Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
这是我的 Tukey HSD 测试的代码:
HSD <- agricolae::HSD.test(TukeyAOV, "Rate", alpha = 0.05, group=TRUE)
print(HSD$groups)
# HollowHeartPercent groups
# 1 0.150 a
# 2 0.050 a
# 3 0.050 a
# 4 0.025 a
# 5 0.000 a
如有任何帮助,我们将不胜感激。谢谢!!
您注意到自由度的差异了吗?您将 Rate 和 Rep 视为数字变量,而不是因素。比较对象:
> dataHodag$Plot <- as.factor(dataHodag$Plot)
> dataHodag$Rate <- as.factor(dataHodag$Rate)
> TukeyAOV <- aov(HollowHeartPercent ~ Rep + Rate, data=dataHodag)
> summary(TukeyAOV)
Df Sum Sq Mean Sq F value Pr(>F)
Rep 1 0.0025 0.002500 0.368 0.554
Rate 4 0.0520 0.013000 1.916 0.164
Residuals 14 0.0950 0.006786
希望对您有所帮助。