R/print.summary.relative.effect.R

In nonrandom: Stratification and matching by the propensity score

print.summary.relative.effect <- function(x,
                                          ...)
{
  cat("\n Outcome: ", x$resp, "\n")
  cat("\n Treatment: ", x$treat, "\n")
  cat("\n Covariates: ", x$sel, "\n")
  cat("\n Unadjusted treatment effect: ", x$unadj, "\n")
  cat("\n Results:\n")
  print(x$result)

}