在 R 中使用 Bonferroni 的过程时 LSD 值为空

LSD value is null when using Bonferroni's procedure in R

我在使用 Bonferroni 程序时发现 LSD 的值时遇到问题。它 returns NULL 你能帮我吗?非常感谢。

library(agricolae)

# Input the treatments and responses
trt <- c(rep("P", 4), rep("T", 4), rep("S", 4), rep("E", 4), rep("C",4))
response <- c(29.6, 24.3, 28.5, 32, 27.3, 32.6, 30.8, 34.8, 5.8, 6.2, 11, 8.3, 
             21.6, 17.4, 18.3, 19, 29.2, 32.8, 25, 24.2)
trt <- as.factor(trt)

df <- data.frame(trt, response)
model <- aov(response ~ trt, data = df)
out <- LSD.test(model, "trt", p.adj = "bonferroni")
out

# Obtain the LSD value
out$statistics$LSD

不幸的是它不是很 well-documented。您可以检查 code for LSD.test,那里有:

   if (length(nr) == 1 & p.adj == "none") 
        statistics <- data.frame(statistics, t.value = Tprob, 
            LSD = LSD)
    if (length(nr) == 1 & p.adj != "none") 
        statistics <- data.frame(statistics, t.value = Tprob, 
            MSD = LSD)

因此,当您的 p.adjust 不是 "none" 时,它会将列名称更改为 MSD,这意味着最小显着性差异。您也可以切换到控制台(选项控制台 =TRUE)来查看此内容。