R/summary.augbin.R

In mjg211/augbin: Augmented Binary Method for Analysing Responder Outcomes

#' Print a summary of an augbin object
#'
#' @param object A ...
#'
#' @export
summary.augbin <- function(object, ...) {

  ##### Check input variables ##################################################

  check_augbin(object)

  ##### Print a summary ########################################################

  summary_augbin(object)

}

#' @rdname print.augbin_data
print.augbin <- function(object, ...) {

  ##### Check input variables ##################################################

  check_augbin(object)

  ##### Print a summary ########################################################

  summary_augbin(object)

}