if (FALSE) {
# load data (CLSI EP05-A2 Within-Lab Precision Experiment)
data(dataEP05A2_1)
# perform ANOVA-estimation of variance components for a nested design
res <- anovaVCA(y~day/run, Data=dataEP05A2_1)
res
inf <- VCAinference(res)
inf
# show certain parts and extract them invisibly
CVmat <- print(inf, what="CV")
CVmat
# show numerical values with more digits
print(inf, digit=12)
}
Run the code above in your browser using DataLab