## Not run:
# data(VCAdata1)
# tmpDat <- VCAdata1[VCAdata1$sample==1,]
# tmpDat <- tmpDat[-c(11,51,73:76),]
# fitMM <- anovaMM(y~(lot+device)/(day)/(run), tmpDat)
# fitMM
# L <- getL(fitMM, c("lot1-lot2", "device1-device2"))
# getDF(fitMM, L) # method="contain" is Default
# getDF(fitMM, L, method="res")
#
# getDF(fitMM, L, method="satt") # takes quite long for this model
# ## End(Not run)
Run the code above in your browser using DataLab