## Not run:
# data(dataEP05A2_2)
# fit <- anovaMM(y~day/(run), dataEP05A2_2)
# L <- getL(fit, c("day1-day2", "day5-day10"), what="fixef")
# L
# test.fixef(fit, L=L)
#
# # another custom hypothesis
# L2 <- getL(fit, "0.25*day1+0.25*day2+0.5*day3-0.5*day4-0.5*day5")
#
# # more complex model
# data(VCAdata1)
# dataS2 <- VCAdata1[VCAdata1$sample==2,]
# fit.S2 <- anovaMM(y~(lot+device)/day/(run), dataS2)
# L3 <- getL(fit.S2, c("lot1-lot2", "lot1:device3:day19-lot1:device3:day20",
# "lot1:device1:day1-lot1:device1:day2"))
# test.fixef(fit.S2, L3)
# ## End(Not run)
Run the code above in your browser using DataLab