# exampel using obk.long (see ?obk.long), a long version of the OBrienKaiser dataset from car.
data(obk.long)
# create object of class Anova:
tmp.aov <- aov.car(value ~ treatment * gender + Error(id/phase*hour),
data = obk.long, return = "Anova")
nice.anova(tmp.aov, observed = "gender")
nice.anova(tmp.aov, observed = "gender", sig.symbol = rep("", 4))
# use package ascii or xtable for formatting of tables ready for printing.
full <- nice.anova(tmp.aov, observed = "gender")
require(ascii)
print(ascii(full, include.rownames = FALSE, caption = "ANOVA 1"), type = "org")
require(xtable)
print.xtable(xtable(full, caption = "ANOVA 2"), include.rownames = FALSE)
Run the code above in your browser using DataLab