Internal function for use by model.tables.
model.tables
se.aov(object, n, type = "means") se.aovlist(object, dn.proj, dn.strata, factors, mf, efficiency, n, type = "diff.means", ...)
B. D. Ripley