R/df.residual.R

In mice: Multivariate Imputation by Chained Equations

Defines functions df.residual.multinom df.residual.mer df.residual.lme df.residual.mira

df.residual.mira <- function(object, ...) {
  fit <- object$analyses[[1]]
  df.residual(fit)
}


df.residual.lme <- function(object, ...) {
  object$fixDF[["X"]][1]
}


df.residual.mer <- function(object, ...) {
  sum(object@dims[2:4] * c(1, -1, -1)) + 1
}


df.residual.multinom <- function(object, ...) {
  nrow(object$residuals) - object$edf
}

Try the mice package in your browser