library(twowaytests)
data(alveolar)
tmeanTwoWay(cell ~ ovalbumin*treatment, data = alveolar)
out <- tmeanTwoWay(cell ~ ovalbumin*treatment, data = alveolar, verbose = FALSE)
paircompTwoWay(out)
out <- tmeanTwoWay(cell ~ treatment*ovalbumin, data = alveolar, verbose = FALSE)
paircompTwoWay(out)
Run the code above in your browser using DataLab