R/print.summary.bal.data.frame.R

In nonrandom: Stratification and matching by the propensity score

print.summary.bal.data.frame <- function(x,
                                         ...){

  if (x$method == "pval"){ 
    cat("\n Balance check using: Statistical tests \n\n")
  }else{
    cat("\n Balance check using: Standardized differences \n\n")
  }

  cat("\n Summary of balance check: \n\n")
  print(x$bal.sum)

  if ( length(x$cov.not)==0 ){
    cat("\n\n Covariates not completely tested: ---\n")
  }else{
    cat("\n\n Covariates not completely tested:\n")
    cat(x$cov.not, "\n")
  }

  cat("\n\n Detailed balance check (overall): \n\n")  
  print(x$bal.sho)


  if (x$method == "pval"){

    if (x$label == "str"){    
      cat("\n\n Detailed balance check (per stratum) [p.values]: \n\n")
    }else{
      cat("\n\n Detailed balance check [p.values]: \n\n")
    }
    print(x$bal.det)
    
    cat(paste("\n\n Significance level for tests: ", x$sig.lev/100, "\n\n", sep=""))
    
  }else{

    if (x$label == "str"){    
      cat("\n\n Detailed balance check (per stratum) [standardized differences]: \n\n")
    }else{
      cat("\n\n Detailed balance check [standardized differences]: \n\n")
    }
    print(x$bal.det)
    
    cat(paste("\n\n Cut point for standardized differences: ", x$sig.lev, "\n\n", sep=""))
    
  }
}