df.residual.aodml <- function(object, ...) object$df.residual

df.residual.aodql <- function(object, ...) df.residual(object$fm)