R/ltx.tpchreg.R

In eha: Event History Analysis

#' @export
ltx.tpchreg <-function(x, caption = NULL, label = NULL, dr = NULL, 
                       digits=max(options()$digits - 4, 3), ...){
    class(x) <- c("coxreg", class(x))
    ltx.coxreg(x, caption, label, dr, digits, ...)
}