## Not run:
# data(dataEP05A2_1)
# fit <- anovaVCA(y~day/run, dataEP05A2_1)
# getMat(fit, "Z")
# getMat(fit, "Zday")
# getMat(fit, "Zday:run")
# getMat(fit, "Zerror")
# getMat(fit, "V") # Var(y)
# getMat(fit, "G") # Var(re)
# ## End(Not run)
Run the code above in your browser using DataLab