## Not run:
# data(dataEP05A2_1)
# fit <- anovaVCA(y~day/(run), dataEP05A2_1)
# fixef(fit)
#
# # for complex models it might take some time computing complex output
# data(VCAdata1)
# fit <- anovaMM(y~(lot+device)/(day)/(run), VCAdata1[VCAdata1$sample==2,])
# fixef(fit, "c")
# ## End(Not run)
Run the code above in your browser using DataLab