R/print.matchit.full.R

In DanRunfola/SimTests: MatchIt: Nonparametric Preprocessing for Parametric Casual Inference

print.matchit.full <- function(x, digits = getOption("digits"), ...){
  cat("\nCall: ", deparse(x$call), sep = "\n")
  cat("\nSample sizes:\n")
  
  if (any(x$weights>0)) 
    nn <- rbind(table(x$treat),
                table(x$weights>0, x$treat),
                c(0,0))
  else 
    nn <- rbind(table(x$treat),
                table(x$weights>0,x$treat)[2:1,])
  dimnames(nn) <- list(c("All","Matched","Discarded"),
                       c("Control","Treated"))
  print.table(nn, ...)
  invisible(x)
  cat("\n")
}