R/print.summary.bpaft.bayes.R

In spsurv: Bernstein Polynomial Based Semiparametric Survival Analysis

#' Bernstein Polynomial Based Regression Object Summary BPAFT Bayes
#'
#' @export
#' @param ... further arguments passed to or from other methods
#' @method print summary.bpaft.bayes
#' @return none


print.summary.bpaft.bayes <-
  function(...){
  cat("Bayesian Bernstein Polynomial based Accelerated Failure Time model\n")
  print.summary.spbp.bayes(...)
}