if (FALSE) {
data(CA19_9)
fit.all <- anovaVCA(result~site/day, CA19_9, by="sample")
summarize.VCA(fit.all)
# complete set of results
summarize.VCA( fit.all, type=c("vc", "sd", "cv"), tail=c("one", "two"),
ends=c("lower", "upper"))
# summarizing a single VCA-object
summarize.VCA(fit.all[[1]])
### summarizing list of 'VCAinference' objects
infs <- VCAinference(fit.all)
summarize.VCAinference(infs)
}
Run the code above in your browser using DataLab