## Not run:
# data(dataEP05A2_2)
# res <- anovaVCA(y~day/run, dataEP05A2_2)
# VCA:::SattDF(res$aov.tab[-1,"MS"], getMat(res, "Ci.MS"), res$aov.tab[-1,"DF"], type="tot")
#
# # now approximating individual DF for variance components
# VCA:::SattDF(res$aov.tab[-1,"MS"], getMat(res, "Ci.MS"), res$aov.tab[-1,"DF"], type="i")
# ## End(Not run)
Run the code above in your browser using DataLab