## Not run:
# # 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)
# ## End(Not run)
Run the code above in your browser using DataLab