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