# 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 + age + Error(id/phase*hour), data = obk.long, return = "Anova")
nice.anova(tmp.aov, observed = c("age", "gender"))
nice.anova(tmp.aov, observed = c("age", "gender"), sig.symbol = rep("", 4))
# use package ascii or xtable for formatting of tables ready for printing.
full <- nice.anova(tmp.aov, observed = c("age", "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