UseMethod(“cld”)中出错:没有适用于“c(‘emm_list’，‘list’)”类的对象的“cld”方法“

Question

尝试运行cld函数来显示显著的差异，但它不起作用。

最后，程序在列表(“cld”)中显示->错误：“cld”没有适用于“c(‘emm_UseMethod’，‘list’)”类的对象的适用方法。

所有必需的软件包都已安装。有人能帮我吗？

library(emmeans)
library(lattice)
library(pbkrtest)
library(car)
library(agricolae)
library(agriTutorial)
library(multcompView)
library(car)

View(WG)
attach(WG)
names(WG)
WG$PGPM <- as.factor(WG$PGPM)
WG$Düngung<- as.factor(WG$Düngung)
WG$WDH<-as.factor(WG$WDH)
WG$Variante<-as.factor(WG$Variante)
WG$Parzelle<-as.factor(WG$Parzelle)

mais.lmer=lmer(Kornertrag~WDH+PGPM*Düngung+(1|WDH:PGPM),data=WG)
anova(mais.lmer,ddf="Kenward-Roger")

shapiro.test(resid(mais.lmer))
leveneTest(Kornertrag~PGPM*Düngung, data=WG)

emmeans::contrast(emmeans::emmeans(mais.lmer,~PGPM|Düngung), alpha=0.05, method="pairwise")
cld(emmeans(mais.lmer, specs = "PGPM", by = "Düngung", contr = "pairwise"))
cld(emmeans(mais.lmer, specs = "Düngung", by = "PGPM", contr = "pairwise"), Letters=letters, reversed=TRUE)

Answer 1

省略contr参数，因为它会创建自己的对比度。并使用multcomp::cld()，因为泛型在multcomp包中。