R/coef.mitml.testEstimates.R

In simongrund1/mitml: Tools for Multiple Imputation in Multilevel Modeling

Defines functions coef.mitml.testEstimates

Documented in coef.mitml.testEstimates

coef.mitml.testEstimates <- function(object, ...){
# extract pooled parameter estimates

  est <- object$estimates
  out <- est[, 1, drop = TRUE]
  if(is.null(names(out))) names(out) <- rownames(est)
  
  return(out)

}