anova.aodql <- function(object, ...) anova(object$fm, ...)