R/AFTprint.R

In sa4khan/AFTjmr: Recurrent event analysis and joint modeling using accelerated failure time (AFT) models

#' Prints AFTjmr objects
#' @param x An \code{AFTjmr} object
#' @param digits minimal number of significant digits
#' @return No value is returned.
#' @author Shahedul Khan <khan@math.usask.ca>
#' @export

print.AFTjmr<- function(x,digits=max(options()$digits - 4, 3)) {
hid <- attr(x, "hidden")
print(x[!names(x) %in% hid],digits=digits)
invisible(x)
}