Skip to main content
added 80 characters in body
Source Link
kjetil b halvorsen
  • 85.6k
  • 32
  • 216
  • 694

Do you mean you want to do all pairwise comparisons for the three factors?

mod1<-lme(Variable~Sediment*Hydrology*Depth, data=mydata, random=~1|Site/Hydrology/Depth) mydata$SHD<-interaction(mydata$Sediment,mydata$Hydrology,mydata$Depth) mod2<-lme(Variable~-1+SHD, data=mydata, random=~1|Site/Hydrology/Depth) summary(glht(mod2,linfct=mcp(SHD="Tukey"))) 
mod1 <- lme(Variable ~ Sediment*Hydrology*Depth, data=mydata, random= ~ 1|Site/Hydrology/Depth) mydata$SHD <- interaction(mydata$Sediment, mydata$Hydrology, mydata$Depth) mod2 <- lme(Variable ~ -1 + SHD, data=mydata, random=~1|Site/Hydrology/Depth) summary(glht(mod2, linfct=mcp(SHD="Tukey"))) 

Do you mean you want to do all pairwise comparisons for the three factors?

mod1<-lme(Variable~Sediment*Hydrology*Depth, data=mydata, random=~1|Site/Hydrology/Depth) mydata$SHD<-interaction(mydata$Sediment,mydata$Hydrology,mydata$Depth) mod2<-lme(Variable~-1+SHD, data=mydata, random=~1|Site/Hydrology/Depth) summary(glht(mod2,linfct=mcp(SHD="Tukey"))) 

Do you mean you want to do all pairwise comparisons for the three factors?

mod1 <- lme(Variable ~ Sediment*Hydrology*Depth, data=mydata, random= ~ 1|Site/Hydrology/Depth) mydata$SHD <- interaction(mydata$Sediment, mydata$Hydrology, mydata$Depth) mod2 <- lme(Variable ~ -1 + SHD, data=mydata, random=~1|Site/Hydrology/Depth) summary(glht(mod2, linfct=mcp(SHD="Tukey"))) 
Source Link
lockedoff
  • 2k
  • 2
  • 14
  • 19

Do you mean you want to do all pairwise comparisons for the three factors?

mod1<-lme(Variable~Sediment*Hydrology*Depth, data=mydata, random=~1|Site/Hydrology/Depth) mydata$SHD<-interaction(mydata$Sediment,mydata$Hydrology,mydata$Depth) mod2<-lme(Variable~-1+SHD, data=mydata, random=~1|Site/Hydrology/Depth) summary(glht(mod2,linfct=mcp(SHD="Tukey")))