if (FALSE) {
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"))
}
Run the code above in your browser using DataLab