## Not run:
# data(dataEP05A2_1)
# fit1 <- anovaMM(y~day/run, dataEP05A2_1)
#
# VCA:::lsmMat(fit1, "day") # function not exported
# VCA:::lsmMat(fit1, "run")
# VCA:::lsmMat(fit1) # is equal to listing all fixed terms
#
# # a more complex and unbalanced model
# data(VCAdata1)
# datS1 <- VCAdata1[VCAdata1$sample == 1, ]
# set.seed(42)
# datS1ub <- datS1[-sample(1:nrow(datS1))[1:25],]
# fit2 <- anovaMM(y~(lot+device)/day/(run), datS1ub)
# VCA:::lsmMat(fit2, c("lot", "device"))
# ## End(Not run)
Run the code above in your browser using DataLab