# 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
# }
Run the code above in your browser using DataLab