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")))